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ABSTRACT 


The  Common  Data  Link  (CDL)  is  a  full  duplex,  point  to-point  microwave 
communications  system  used  in  imafery  and  signals  intelligence  collection  systems.  L 
provides  a  link  between  two  remote  Local  Area  Networks  (LANs)  aboard  coUection  and 
surface  platforms.  In  a  hostile  environment,  there  is  an  overwhelming  need  to  dynamically 
monitor  the  link  and  thus,  limir  the  impact  of  jamming 

This  work  describes  steps  taken  to  design,  model,  and  evaluate  a  link  monitoring 
system  suitable  for  the  CDL.  The  monitoring  system  is  based  on  features  and  monitoring 
constructs  of  the  Link  Control  Protocol  (LCP)  in  the  Point~to* Point  Protocol  (PPP)  suite. 
Tlte  CDL  model  is  based  on  a  system  of  two  remote  Fiber  Distributed  Data  Interface 
(FDDI)  LANs.  In  particular,  the  policies  and  mechanisms  associated  with  monitoring  are 
described  in  detail.  An  implementation  of  the  required  mechanisms  using  the  OPNET 
network  engineering  tool  is  described  Performance  data  related  to  monitoring  parameters 
is  reported.  Finally,  integration  of  the  FDDl-CDL  model  with  the  OPNET  Internet  model 
is  described. 
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I.  INTRODUCTION 


A.  CDL  OVERVIEW 

This  thesis  deals  with  the  Common  Data  Link  (CDL),  a  project  of  the  Defense  Support 
Project  Office  (DSPO).  The  CDL  is  a  full  duplex,  point-to-point  microwave  data  link 
designed  to  provide  jam  resistant  communications  between  two  remote  platforms,  such  as 
an  airborne  asset  and  a  surface  platform.  The  purpose  of  the  airborne  platform  is  to  collect 
signal  and  image  intelligence  data  for  transmission  over  the  CDL.  In  turn,  the  surface 
platform  evaluates  this  data  while  transmitting  command,  control,  and  communications 
information  back  to  the  aircraft. 

The  downlink,  or  return  link,  operates  at  a  data  rate  of  274.176  Megabits  per  second 
(Mbps)  as  a  high  rate,  or  can  be  scaled  down  to  a  low  rate  of  10.7 1  Mbps.  It  is  a  multiplexed 
data  stream  of  bit  pipes,  ranging  in  rates  from  25  Kilobits  per  second  (Kbps)  to  42.84  Mbps. 
The  bit  pipes  are  hierarchically  multiplexed  for  the  274. 176  Mbps  configuration  as  shown 
in  Figure  1. 

The  uplink,  or  command  link,  operates  at  200  Kbps.  The  transmitted  data  is  comprised 
of  mostly  equipment  commands  multiplexed  with  audio  and  synchronization  bits.  For  the 
purposes  of  this  work,  it  is  assumed  to  be  unjammable.  Tliis  assumption  is  supported  by 
current  microwave  link  implementations. 

B.  OBJECTIVES 

The  primary  objective  of  tliis  work  is  to  design  a  link  monitoring  mechanism  and  its 
associateo  constructs  for  the  CDL.  Secondly,  the  mechanism  must  be  modelled  in  a 
computer  simulation,  in  this  case  using  MIL  3,  Inc.’s  Optimized  Network  Engineering  Tool 
(OPNET),  in  oider  to  evaluate  the  faithfulness  of  the  monitoring  dc.sign.  Additional  model 
changes  will  also  be  presented  to  integrate  OPNET  models  of  Transmission  Control 
Protocol/Intcrnct  Protocol  (I'CPAT)  into  the  existing  CDL-FDDI  model.  This  integrated 
CDL  network  model  will  serve  as  a  building  block  to  evaluate  the  link’s  susceptibility  to 
jamming,  and  will  aid  in  development  of  CDL-specific  applications. 
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figure  i:  uul,  Multiplexer  merarchy  [IJ 
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C.  SCOPE 

The  scope  of  this  thesis  includes  the  following. 

•  Introduce  the  Point-to-Point  Protocol  (PPP)  and  support  its  use  as  a  basis 
for  a  link  monitoring  algorithm. 

•  Present  an  approach  to  link  monitoring  and  the  issues  surrounding  the 
chosen  approach. 

•  Discusr,  and  evaluate  the  link  monitoring  additions  made  to  the  OPNET 
model  of  the  remote  LAN  interconnection  using  CDL. 

•  Present  changes  to  existing  TCP/IP  OPNET  models  to  utilize  them  with 
tlie  enhanced  network  model. 

D.  ORGANIZATION 

Chapter  II  provides  an  introductio.  to  PPP  and  its  integration  into  the  CDL  scheme. 
Chapter  M  delineates  issues  involved  in  developing  the  chosen  link  monitoring  algorithm 
j^s  well  as  an  overview  of  the  process  itself.  Chapters  IV  through  VI  deal  with  the  OPNET 
implementation  of  both  link  monitoring  and  the  TCP/IP  models.  Conclusions  and 
recommendations  are  listed  in  Chapter  Vn. 
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II.  POINT-TO-POINT  PROTOCOL  (PPP) 


Requirements  for  the  CDL  network  interface  (NI)  have  been  established  and  evaluated 
by  [2].  The  recommendations  include  a  remote  bridge  between  the  collection  and  surface 
platforms,  which  is  actually  a  pair  of  half  bridges,  each  of  which  connects  a  LAN  to  a  point- 
to-point  link.  Figure  2  illustrates  this  remote  bridge  connection. 

The  connectivity  is  to  be  implemented  in  the  Primary  Communication  Elements  (PCE) 
and  Surface  Communication  Elements  (SCE)  rather  than  the  network  layer  due  to 
requirements  that  the  CDL  may  need  to  route  datagrams  from  the  network  layer  and  bridge 
frames  from  the  Media  Access  Control  (MAC).  Therefore,  some  type  of  link-level  protocol 
is  necessary  for  communication  and  data  transmission  between  the  two  bridges,  and  the 
Point-to-Point  Protocol  (PPP)  is  seen  as  an  ideal  choice.  Detailed  discussion  of  the  level  of 
connectivity  is  also  included  in  [2]. 

A.  GENERAL  DESCRIPTION 

PPP  is  a  data  link  protocol  standard  adopted  by  the  Internet  Engineering  Task  Force 
(IETF),  the  governing  body  for  standards  related  to  the  Internet.  The  goal  of  PPP  is  to 
provide  a  standard  method  for  transporting  protocol  data  units  of  multiple  protocols  over 
point-to-point  links  through  a  simple  encapsulation  scheme 

PPP  has  two  sub-protocols  associated  with  it.  First  is  the  Link  Control  Protocol  (LCP), 
which  is  the  administrative  arm  of  PPP.  The  LCP  allows  a  multitude  of  establishment, 
configuration,  and  testing  options.  The  second  sub-protocol  is  the  Network  Control 
Protocol  (NCP).  Its  purpose  is  to  smooth  out  incompatibilities  between  different  types  of 
ner  -  level  protocols  (e.g.  IP.  Appleudk.  Novell  IPX,  etc.)  and  enable  their  data  units  to 
be  u  ms.nitted  over  one  point-to-point  Unk. 

B.  RATIONALE  FOR  CHOOSING  PPP 

Using  PPP  within  the  remote  bridge  scheme  deals  with  the  bridge  communication  and 
data  transmission  issues,  but  further  analysis  xmcovers  many  additional  benefits  to  the 
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Figure  2:  The  Role  of  PPP  in  a  CDL-based  Remote  LAN  Interconn  jction 
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COLLECTION  PLATFORM  SURFACE  PLATFORM 


COL.  These  include  increased  bandwidth  utiloation,  link  monitoring  capabilities, 
dynamic  reconriguration,  and  future  expandability  to  network-level  interconnection  Each 
of  these  reiuons  further  supports  PPP  as  the  pi  otocol  of  choice. 

1.  Maximum  Bandwidth  Utilization 

Current  CDL  specifications  describe  a  fixed  multiplexer  hierarchy  on  the  return 
link.  This  limits  the  type  of  equipment  from  which  infexmation  can  be  transmitted  on  the 
CDL  because  the  equipment  must  conform  to  a  hard-wired  data  rate.  If  the  nonconfornT.in^ 
equipment  is  installed  anyhow,  a  slower  unit  will  waste  bandwidth,  while  a  faster  unit  will 
cause  overhead  in  time  and  extra  hardware  due  to  fragmentation  requirements.  Through 
LCP  reconfiguration  of  PPP  packet  sizes  and  built-in  fragmentation  constructs,  PP?  can 
make  this  multiplexer  hierarchy  invisible  to  the  ^plications. 

Another  difficulty  posed  by  a  fixed  multiplexer  hierarchy  is  the  inability  of  the 
senders  to  utilize  extra  bandwidth  that  may  be  available  in  the  downlink.  For  instance,  if  a 
piece  of  equipment  breaks  or  is  not  being  used,  the  bandwidth  it  would  nonnally  use  is 
filled  with  useless  padding  in  order  to  maintain  link  synchronization. 

PPP  provides  a  resequcncing  capability  to  distribute  frames  to  any  multiplexer 
input  and  resequence  the  data  at  the  receiving  end,  effectively  using  all  available 
bandwidth.  In  jammirig  scenarios,  non-realtime  data  which  can  tolerate  resequencing- 
related  delays  can  be  buffered  at  the  source  to  be  sent  as  bursts  over  multiple  multiplexer 
inputs  during  non-jamming  periods. 

2.  Dynamic  Configuration  Changes 

In  most  military  applications,  the  effectiveness  of  equipment  relies  on  its  ability 
to  adapt.  Different  situations  call  for  different  capabilities,  and  in  the  case  of  the  CDL,  its 
deployment  in  the  joint  services  may  force  a  wide  array  of  platforms  to  be  interfaced  with 
the  link  for  a  variety  of  missions  with  different  data  requirements.  Even  in  any  one  mission, 
information  such  as  imagery  may  need  a  higher  resolution  at  different  points  in  time. 
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Though  the  equipment  miy  have  that  cjq>abiljty.  in  a  fixed  muluplexer  hierarchy  the 
appitcation-to-iink  connection  may  not  be  ea&iJy  alteied 

PPP  offers  a  solution  to  this  problem  through  dynamic  reconfiguration  of  the  data 
link  using  LCP  reconfiguration  constructs  already  in  place  Furthermore.  PPP  can  handle 
data  coming  from  the  onboard  FDDl  ring,  or  from  a  network-level  connection  with  another 
platform,  all  through  dynamic  configuration  !  3] 


3.  Flexibility  and  Upward  Compatability 

Another  problem  caused  by  tlie  current  fixed  hierarchy  is  that  deployment  of 
newer  networking  technologies  would  not  be  easily  possible  Hard-wired  data  rates  and  a 
fixed  multiplexer  hierarchy  hinder  any  long-term  expansion  plan,  which  will  be  necessary 
in  the  quickly  expanding  field  of  computer  networks.  Current  research  into  gigabit-speed 
networks  and  beyond  could  cause  CDL  obsolesence  even  before  its  full-scale  deployment, 
if  the  approach  to  the  CDL  network  interface  lacks  proper  vision  of  the  future. 

Work  reported  here  is  based  on  our  position  that  PPP  is  the  point-to-point  data 
link  protocol  of  the  future,  both  for  the  CDL  and  the  networking  community,  in  general.  It 
is  an  adopted  standard,  widely  used,  and  easily  adaptable  to  proprietary  implementations. 
It  has  been  used  on  T1  and  T3  links,  liigh-delay  satellite  links,  and  is  being  considered  for 
gigabit-speed  SONET  links.  Most  importantly.  PPP’s  flexibility  will  make  CDL  poiiable 
and  upgradable,  allowing  for  greater  deployment,  interoperability,  and  expanding 
capabilities  in  line  with  future  technology. 


4.  Link  Monitoring 


Jamming  is  a  potenti.ol  threat  in  any  military  application.  Even  without  jamming, 
minor  interference  can  play  havoc  with  data  intensive  links  transmitting  through  the 
atmosphere.  Some  form  of  error  detection,  such  as  frame  check  sequences  (PCS),  must  be 
used  to  alleviate  this  problem. 

Any  data  link  protocol  has  some  form  of  error  detection.  For  instance,  FDDI  has 


an  Pr'C  nn  ■frofr;* 


This  IS  examined  and  evaluaicu  at  Uic  ultimate  destination,  l  he 
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error  handling  could  therefore  be  left  as  an  end-to-end  problem  between  the  source  and 
destination. 

However,  in  a  CDL  scenari.}.  errors  have  a  much  higher  probability  of  occurrence 
over  the  link  itself  than  on  the  FDDI  rings  at  either  platform.  Thus,  it  makes  sense  to  check 
each  frame  as  it  comes  across  the  link.  Unfortunately,  for  the  bridging  stations  to  check 
each  frame  would  require  breaking  up  each  frame,  PCS  calculations,  and  reframing  in  order 
to  transmit  on  the  FDDI  ring.  This  presents  an  unacceptable  overhead  and  violates  the  end- 
to-end  principle.  [4] 

The  solution  proposed  is  to  encapsulate  every  outgoing  FDDI  frame  in  another 
frame,  namely  PPP,  with  error  checking  being  conducted  on  the  higher  level  instead  of 
breaking  apart  the  underlying  FDDI  frame.  Although  PPP  is  a  data  link  layer  protocol  just 
as  FDDI,  it  can  be  used  to  encapsulate  the  FDDI  frame  for  point-to-point  transmission. 

Link  monitoring  also  involves  reporting  the  link  status.  When  an  FCS  is 
evaluated,  the  receiving  station  knows  how  the  transmission  is  being  affected,  but  to  be  of 
use  in  flow  control,  the  information  must  be  sent  to  the  transmitting  site.  PPP  has  built-in 
link  qt’.aliiy  monitoring  constructs,  including  a  Link  Quality  Report  (LQR),  whose 
transmission  frequency  can  be  negotiated  at  link  establishment  time. 

C.  PPP  FRAME  FORMATS 

Encapsulation  in  PPP  is  attained  by  merely  attaching  a  header  to  the  data  to  be  framed. 
Any  packet  being  transmitted  through  PPP  will  be  prepended  with  a  16  bit  Protocol 
IDcntification  (PID)  which  identifies  the  network  protocol  which  spawned  the  packet.  If 
PPP  is  generating  a  control  frame,  it  identifies  the  type  of  control  frame.  Additional  padding 
bytes  may  be  appended  to  the  data,  if  desired. 

Framing  requirements  are  not  specifically  delineated  in  the  PPP  standard  (5]  to  allow 
flexibility  in  implementation.  However  a  separate  standard  has  been  adopted  to  provide 
High-Level  Data  Link  Control  (HDLC)  framing  to  PPP  frames  [6] .  This  is  the  only  current 
PPP  framing  standard,  but  it  does  not  preclude  a  furtlier  study  into  a  more  suitable  framing 
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method  for  CDL  purposes.  In  any  case,  this  work  assumes  PPP  will  be  implemented  with 
HDLC  framing. 

1.  Multilink  Protocol 

The  Multilink  Protocol  is  a  proposed  addition  to  the  suite  of  Internet  PPP 
standards  currently  in  place[7].  Its  primary  function  is  to  allow  for  dynamic  changes  in  the 
number  and  size  of  point-to-point  links  between  two  PPP  servers.  If  this  should  occur,  the 
Multilink  Protocol  enables  PPP  to  maximize  its  use  of  the  available  bandwidth. 

It  accomplishes  this  in  three  steps,  illustrated  in  Figure  3.  First,  encapsulated  PPP 
packets  are  fragmented,  if  desired,  depending  on  the  data  rates  of  the  individual  links.  This 
can  be  used  to  transmit  each  packet  across  the  varying  data  rates  in  the  shortest  time,  and 
ensuring  no  one  link  has  data  in  the  transmission  pipe  longer  than  any  other.  Second,  all 
PPP  fragments  and  other  designated  PPP  packets  arc  further  encapsulated  with  a  Mulfilink 
header.  In  turn,  these  Multilink  packets  are  encapsulated  in  another  PPP  header  and  fmally 
framed  to  be  transmitted. 

The  Multilink  Protocol  format  is  shown  in  Figure  4.  In  the  MultiUnk  header,  the 
sequence  number  is  a  24-bit  value  used  to  keep  fragments  in  wder.  The  ‘B’  and  ‘E’  bits 
designate  the  beginning  and  ending  fragments  of  a  packet  sent  in  multiple  frames.  This  4 
byte  Multilink  header  may  be  substituted  with  a  two  byte  header  in  which  the  sequence 
number  is  reduced  to  12  bits  and  the  ‘B’  and  ‘E’  bits  remain  intact. 

The  address,  control.  »ind  frame  check  sequence  (PCS)  fields  are  specific  to  the 
HDLC  framing  format,  and  even  so,  can  be  negotiated  between  the  PPP  servers  to  not  be 
transmitted,  thereby  eliminating  unnecessary  overhead. 

2.  Link  Quality  Report  (LQR) 

The  Link  Quality  Report  (LQR)  is  an  established  PPP  mechanism  which  allows  a 
sender  to  determine  how  its  data  is  being  received  at  the  receiving  end  of  a  point-to-point 
link[8].  It  is  composed  of  12  32-bit  fields  containing  statistics  maintained  at  tlie  receiver. 
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Figure  3:  PPP  Multilink  Encapsulation  Procedure 
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HDLC  framing  info 
?PP  header 

MuttilinK  header 


Address  Oxff 


Control  0x03 


PID(H)  0x00 


PID(L)  0x3d 


BE 


sequence  number 


sequence  number 


DATA 


Frame  Check  Sequence 


Ai:ldress:  HDLC  field  -  Oxff  ^  all  addresses 
Control:  HDLC  field  -  0x03  «  unnumbered  information 
PiD;  PPP  field  -  0x003d  »  PPP  Multilink  Protocol 
B/E:  Muiiiiink  flag  -  set  when  this  frame  Is  a  (B)eginning  or  {E)nd 
fragment 

Sequence  r«fumber:  Multilink  field  -  prevents  reordering  of  fragments 
FCS:  HDLC  field  -  checksum  field 

The  Address,  Control,  and  FCS  fields  assume  HDLC  framirig,  and  even  so, 
are  completely  optional. 


Figure  4:  PPP  Multilink  Frame  Format 
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as  shown  in  Figure  5.  Upon  receipt  of  an  LQR,  a  station  appends  another  5  32  bit  fields  of 
its  own  statistics,  bringing  the  total  siie  to  544  bits. 

The  basic  premise  in  the  development  of  the  LQR  format  and  transmission 
characteristics  is  that  the  transmitter  will  evaluate  its  own  downlink  based  on  statistics  of 
the  link  accumulated  at  the  receiving  end.  These  values  are  grouped  into  a  PPP  frame  which 
will  be  sent  to  the  transmitting  site.  The  transmitting  site  can  then  independently  evaluate 
the  statistics  and  reconfigure  the  link  as  it  sees  fit,  assuming  the  receiving  side  agrees  with 
the  changes.  This  procedure  supports  independence  between  the  transmitter  and  receiver 
wherein  the  receiver  does  not  need  to  know  any  capabilities  or  characterist  '$  of  the 
transmitter  other  than  those  established  during  link  configuration.  For  CDL  purposes, 
independence  is  indeed  necessary,  but  other  factors  call  for  significant  changes  in  both  the 
LQR  format  and  implementation,  as  well  as  other  aspects  of  link  monitoring  in  general. 

D.  SUMMARY 

This  chapter  has  presented  PPP  as  a  suitable  choice  for  the  data  link  protocol  to 
interconnect  the  PCE  and  SCE  over  the  CDL.  This  decision  is  further  supported  by 
numerous  additional  PPP  benefits  including  increased  bandwidth  utilization,  link 
monitoring,  dynamic  link  configuration,  and  future  expandability.  Relevant  PPP  frame 
formats  have  also  been  introduced,  namely  the  basic  PPP  format,  Multink  protocol,  and  the 
Link  Quality  Report.  These  data  frame  formats,  as  well  as  PPP  link  monitoring  constructs, 
form  the  basis  for  developing  a  CDL  link  monitoring  mechanism. 
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Figure  5;  PPP  Link  Quality  Report  Format 
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111.  LINK  MONITORING  APPROACHES/ISSUES 


A.  OVERVIEW 

lliis  chapte.’'  deals  with  the  development  of  a  link  monitoring  mechanism,  based  on 
PPP  constructs,  for  the  CDL.  Figures  6  and  7  graphically  present  the  proposed  approach, 
which  is  outlined  below; 

1)  FDDI  frames/datagrams  are  encapsulated  with  a  PPP  header  and 
framed. 

2)  If  necessary,  PPP  frames  are  fragmented. 

3)  PPP  frames  and  fragments  are  reffamed  in  the  PPP  Multilink  protocol. 

4)  Pseudo-random  monitoring  frames  are  injected  into  the  data  stream  at  a 
fixed  rate. 

5)  The  stream  of  PPP  frames  is  distributed  amongst  multiplexer  inputs. 

6)  PPP  frames  are  pulled  off  demultiplexer  ouqsuts  at  the  receiving  end. 

7)  PPP  data  frames  are  decapsaiated  and  the  FDDI  frames/datagxams  are 
sent  to  the  appropriate  layer  for  continuing  transmission. 

8)  Errors  are  detected  in  monitoring  frames,  and  the  results  are  maintained 
in  a  fixed  size  history. 

9)  Using  the  history  length,  the  fraction  of  bad  packets  is  calculated. 

10)  Based  on  this  fraction,  LQRs  are  transmitted  at  fixed  intervals  with 
information  regarding  link  status  (good/bad)  and  trend  since  last  LOR 
(up/down).  Link  status  is  determined  (at  the  surface  platform)  based  on 
hysteresis,  to  eliminate  excessive  link  fluctuations. 

11)  LQRs  are  received  and  used  to  determine  the  necessary  actions  by  the 
transmitting  station. 

B.  MONITORING  PACKETS  VERSUS  FRAME  CHECK  SEQUENCES 

The  fu'st  issue  confronting  CDL  link  monitoring  is  whether  to  use  the  FCS  built  into 
HDLC-based  framing,  or  use  another  form  of  error  detection  such  as  individual  monitoring 
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Figure  6:  CDL  Return  Link  Monitoring 
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Figure  7:  CDL  Command  Link  LQR  Transmission 
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packets.  The  monitoring  packet  approach  uses  cither  fixed  or  pseudo-random  data  streams 
packetized,  framed,  and  interleaved  with  regula*;  PPP  data  frames.  At  the  receiving  end,  the 
monitoring  packets  are  easily  compared  to  the  expected  contents,  and  errors  per  packet  can 
be  quickly  counted  without  excessive  computation. 

On  the  other  hand,  an  PCS  requires  detailed  calculations,  and  the  complexity  of  the 
calculations  increases  as  the  number  of  bit  errors  to  be  detected  increases.  These 
computations  must  be  done  twice,  once  before  transmission  and  once  after  reception.  Also, 
PCS  can  never  guarantee  100%  error  detection,  whereas  preset  monitoring  packets  always 
guarantee  perfect  detection. 

C.  MONITORING  PACKET  GENERATION 

Three  factors  play  a  major  role  in  monitoring  packet  generation.  They  are  packet  size, 
insertion  rate  and  packet  format.  Individually,  each  has  a  major  impact  on  the  monitoring 
effectiveness,  but  they  must  be  balanced  to  avoid  unnecessary  overhead  or  undetected  link 
interference. 

1.  Packet  Size 

Monitoring  packet  size  has  a  clear  impact  on  error  detection:  the  bigger  the 
packet,  the  better  the  BER  estimation.  However,  this  factor  is  limited  due  to  the  data 
multiplexing  at  the  hardware  level.  Since  each  framed  monitoring  packet  is  broken  up  in 
the  aggregate  data  stream,  monitoring  bits  are,  in  essence,  uniformly  distributed  throughout 
the  data. 

This  is  much  more  effective  than  a  fiattem  of  a  ceitain  number  of  data  packets 
followed  by  one  monitoring  packet.  If  the  jamming  pulse  duty  cycle  was  low  (short  pulses 
with  longer  intervals  between  pulses),  data  couid  become  garbled  at  a  much  higher  rate  than 
the  monitoring  packets,  yet  an  evaluation  of  the  monitoring  packets  would  only  show  slight 
degradation.  In  contrast,  a  uniformly  dispersed  monitoring  packet  would  increase  its 
detection  capabilities  in  proportion  to  the  number  of  monitoring  packet  fragments  within 
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the  data,  and  the  resulting  evaluation  would  be  more  faithfully  indicative  of  the  correct  link 
status. 

2.  Packet  Insertion 

There  are  two  factors  with  regard  to  packet  insertion:  insertion  rate  and  pattern  of 
insertion.  Insertion  rate  is  the  rate  at  which  monitoring  frames  are  created  and  inserted  into 
the  output  data  stream.  A  pattern  of  insertion  refers  to  the  manner  in  which  a  monitoring 
frame  is  placed  into  the  data  stream  at  individual  multiplexer  inputs  so  as  to  effect 
maximum  error  detection. 

a.  Insertion  Rate 

As  in  the  case  of  packet  size,  insertion  rate  has  a  clear  impact  on  monitoring: 
the  faster  and  more  frequently  monitoring  packets  are  transmitted,  the  better  the 
monitoring.  Unfortunately,  where  the  distribution  of  monitoring  bits  in  the  aggregate  data 
stream  limited  the  impact  of  packet  size  on  monitoring  effectiveness,  thi&  is  not  the  case 
with  the  insertion  rate.  Thus,  the  insertion  rate  will  determine,  to  a  great  degree,  whether 
there  is  excessive  monitoring  overhead  or  sampling  of  the  error  events  on  the  aggregate 
data  sheam  is  insufficient. 

b.  Pattern  of  Insertion 

Insertion  of  monitoring  frames  into  the  CDL  multiplexer  hierarchy  can  take 
on  three  primary  patterns.  First,  monitoring  frames  may  be  iii.^ut  only  on  a  specific 
multiplexer  input.  Secondly,  frames  may  simply  follow  a  round  robin  scheme,  oblivious  to 
the  data  rate  of  the  particular  input.  Finally,  frames  can  be  input  to  the  least  loaded 
multiplexer  input  -  that  input  with  the  smallest  queue  waiting  to  be  transmitted. 

For  the  first  strategy,  the  main  benefit  is  simplicity.  Unfortunately,  this 
scheme  depends  too  heavily  on  the  load  balancing  between  multiplexer  inputs  and  the 
inputs’  data  rates.  If  tliere  is  no  load  balancing,  the  selected  input  pipe  may  get  backlogged, 
forcing  important  data  to  compete  for  transmission  time.  On  the  other  hand,  even  if  load 
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balancing  is  in  place,  the  input  may  simply  be  too  slow  to  handle  all  the  monitoring  traffic, 
again  causing  backlog  in  the  transmission  queue  and  worse,  inliibiting  the  actual 
monitoring  transmission  rate  end  thereby,  the  monitoring  effectiveness. 

A  round  robin  procedure  has  some  of  the  same  limitations  as  the  fixed  input 
strategy.  While  the  individual  load  on  each  input  would  have  less  effect,  the  disparity 
between  multiplexer  input  data  rates  could  cause  clustering  of  monitoring  bits  in  the  final 
data  stream.  For  example,  it  would  be  possible  to  transmit  a  continuous  stream  of 
multiplexed  monitoring  bits  followed  by  a  stream  of  data  bits.  Such  a  scenario  is 
undesirable  because  the  errors  in  the  data  part  of  the  stream  will  not  be  caught  by  the 
monitoring  packets.  While  this  extreme  scenano  is  unlikely,  a  strictly  round  robin 
distribution  on  disparate  data  rates  decreases  the  probability  of  error  detection. 

While  round  robin  and  fixed  input  insertion  patterns  are  fundamentally 
flawed  with  regard  to  a  CDL  situation,  a  better  pattern  can  be  found  by  evaluating  the 
discrepancies  with  each.  With  fixed  input,  the  primary  concern  was  backlogging  any  one 
input,  while  round  robin  was  not  robust  enough  to  ensure  uniform  spreading  of  monitoring 
bits.  The  empty  selection  insertion  strategy  solves  both  problems  at  once. 

Using  empty  selection  as  an  insertion  pattern  is  effective,  but  not  without  its 
downfalls.  For  instance,  deteimining  the  emptiest  multiplexer  input  requires  cor.stant 
monitoring  of  all  input  queues  and  relating  queue  size  to  the  input’s  data  rate.  Also,  a  slow 
pipe  could  still  be  chosen,  causing  non-uniform  distribution  of  monitoring  bits. 

The  packet  insertion  strategy  must  address  a  trade-off  between  effectiveness 
and  simplicity  of  implementation.  Queue  monitoring  and  non-uniform  distribution  can  be 
dramatically  reduced  by  using  smaller  monitoring  packets  and  increasing  the  insertion  rate, 
thereby  keeping  the  effective  monitoring  frame  transmission  rate  constant.  To  this  end, 
empty  selection  is  an  efficient  insertion  pattern. 
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3.  Overhead  and  Effective  Sampling 


In  summary,  packet  size  and  insertion  characteristics  are  critical  parameters  in 
any  monitoring  policy.  The  total  transmission  overhead  can  be  calculated  using  these  two 
criteria  (Equation  1).  Assuming  uniform  distribution  of  momtoring  bits,  the  total  amount  of 

Transmission  Overhead  =  Packet  Size  (bits/pkt)  X  Insertion  Rate  (pkts/s)  ( 1 ) 


overhead  is  the  only  factor  that  will  determine  if  the  monitoring  bits  will  be  an  effective 
sampling  of  the  true  bit  error  rate  (BER).  This  implies  that  as  long  as  the  inter/al  between 
monitoring  bits  in  the  aggregate  data  stream  is  less  than  the  jamming  pulse  duration,  the 
monitoring  status  will  accurately  reflect  the  link  status. 

Now  that  a  quantitative  value  for  overhead  can  be  set,  the  only  question  is  how  to 
vary  packet  size  end  insertion  rate  to  maintain  acceptable  overhead.  Based  on  the  earlier 
evaluation  of  both  factors,  we  may  conclude  that  overhead  policy  should  be  controlled  by 
varying  the  monitoring  packet  insertion  rate  and  maintaining  a  small  monitoring  packet 
size.  This  shall  ensure  a  quick  monitoring  response  time  while  still  utilizing  the  maximum 
allowable  quantity  of  overhead. 

4.  Packet  Format 

The  only  issue  in  relation  to  packet  format  was  the  contents:  would  it  be  a  fixed 
data  pattern  oi  some  random  pattern.  Clearly  both  approaches  have  merits:  a  fixed  data 
pattern  would  be  easily  compared  at  the  receiving  end,  but  would  lack  true  probabilistic 
independence;  a  random  pattern  could  pass  the  independence  test,  but  would  have  no  basis 
for  comparison  at  the  receiving  end. 

The  solution  is  again  a  hybrid  of  both  formats:  a  pseudo-random  generator  which 
would  be  initialized  by  both  PPP  servers.  Now,  the  data  pattern  is  random  for  all  practical 
purposes,  but  is  still  easily  compared  to  an  expected  value  at  the  receiving  end. 
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D.  MONITORING  PACKET  EVALUATION 


1.  History 

When  a  monitoring  packet  is  received,  the  number  of  errors  are  counted  and  this 
value  is  placed  in  an  array  of  fixed  length.  A  pointer  is  incremented  to  the  next  element  in 
the  array,  and  the  next  error  count  is  placed  in  the  next  element.  When  the  pointer  reaches 
the  end,  it  resets  to  the  beginning  of  the  array.  Each  time  a  new  element  is  entered,  a  new 
ratio  of  packets  in  error  (in  the  history)  to  total  packets  (in  the  history)  is  computed,  i  anging 
ft’om  Oto  1. 

Another  idea  in  evaluating  the  ratio  would  be  to  add  up  the  total  errors  in  the 
history,  and  calculate  an  average  BER  and  act  on  that,  A  running  iotal  can  easily  be 
maintained,  just  as  when  counting  bad  packets.  The  oiJy  additional  requirement  would  be 
memory  increasing  ft-om  one  bit  per  history  element  to  two  bytes  per  history  element.  This 
is  a  viable  option,  but  it  has  not  been  further  explored  in  this  work. 

The  ratio  generated  from  the  history  is  the  basis  for  transmitting  LQRs  and  overall 
link  status,  so  the  length  of  the  history  is  a  crucial  clement  in  the  reporting  process  of  link 
monitoring.  For  instance,  a  history  of  length  1  would  cause  the  link  to  bounce  between  good 
and  bad  each  time  the  current  packet  was  different  than  the  previous  packet.  Expanding  that 
idea,  a  history  of  length  10  will  oscillate,  on  the  average,  at  a  rate  1/10  less  than  a  history 
of  1;  a  history  of  length  iCO  at  a  rate  I/IO  that  of  length  10,  and  so  on.  However,  a  data  link 
that  changes  status  too  slow  is  as  much  a  detriment  as  a  link  which  changes  too  fast.  Slow 
changes  in  history  cause  sluggish  response  in  transmitting  LQRs,  and  result  in  inefficient 
monitoring  feedback  to  the  transmitting  station.  Requirements  of  a  quick  response  time  and 
limited  bounce  force  another  compromise  in  order  to  achieve  both  desired  results. 

2.  Hysteresis 

Hysteresis  acts  as  a  history  for  the  history,  allowing  a  small  histoi^  length  for 
quick  response,  and  at  the  same  time  preventing  too  much  oscillation.  Figure  8  illustrates 
the  principle  for  the  CDL. 
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levels  of  link  status 


hysteresis  curve  (ratio-dependentAime-independent) 


Figure  12:  Hysteresis  in  the  CDL 
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Initially,  upper  and  lower  hysteresis  bounds  are  set  for  the  ratio,  which  will 
determine  when  the  link  is  declared  good  or  bad.  The  link  starts  out  ‘good’,  and  as  bad 
packets  are  received,  the  ratio  goes  up.  If  the  ratio  oscillates  between  values  without 
crossing  the  upper  hysteresis  bound,  the  link  remains  in  a  ‘good’  status.  Once  the  ratio 
passes  the  upper  bound,  the  link  is  immediately  declared  ‘bad’  and  will  'emain  bad  until 
the  lower  hysteresis  bound  is  crossed. 

Hysteresis  bounds  must  be  chosen  carefully,  as  narrow  bounds  will  cause 
excessive  fluctuation  just  as  a  small  history  length,  and  wide  bounds  will  create  long  delays 
in  link  status  changes.  It  is  recommended  that  this  be  a  dynamic  attribute,  as  there  is  no 
method  to  alleviate  erroneous  results  caused  by  fixed  hysteresis  bounds. 

3.  LQR  Transmission  Frequency 

LQRs  C8J1  be  transmitted  at  a  fixed  or  variable  rate  depending  on  the  criteria  on 
which  transmission  is  based.  For  example,  a  fixed  rate  transmission  may  occur  if  an  LQR 
is  sent  for  every  three  monitoring  packets  received.  On  the  other  hand,  a  variable  rate 
transmission  may  occur  if  an.  LQR  is  sent  when  the  last  two  monitoring  packets  are  bad. 
Clearly,  a  fixed  LQR  transmission  is  easy  to  implement,  while  a  variable  rate  allows  for 
flexibility  and  better  trend  evaluation.  Using  the  positive  aspects  of  both  transmission 
methods,  another  compromise  is  seen  as  the  best  approach  for  the  CDL. 

The  method  recommended  is  a  fixed  rate  based  on  the  ratio.  The  interval  between 
the  ratio  bounds  of  0  to  1  is  evenly  divided  into  a  certain  number  of  divisions.  An  LQR  will 
be  sent  as  each  threshold  is  passed,  either  increasing  or  decreasing.  This  translates  the  fixed 
rate  into  a  variable  rate,  as  LQRs  will  be  transmitted  at  a  rate  commensurate  with  how  fast 
the  ratio  is  changing,  i.e.  the  slope  of  the  ratio  curve.  This  can  impart  an  urgency  to  the 
transmitting  station  that  something  is  causing  the  ratio  to  change  quickly,  and  the  link  may 
go  bad  soon. 

This  process  can  only  accurately  perceive  a  quick  change  in  the  ratio  if  the 
monitoring  frames  are  being  transmitted  at  a  constant  rate.  On  the  other  hand,  another 
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approach  is  where  the  monitoring  frame  transmission  rate  could  char»ge  based  on  a  fixed 
LQR  transmission  rate.  However,  this  option  was  disregarded  because  evaluation  logic  and 
dynamic  transmission  capabilities  would  be  necessary  on  the  collection  platform.  As 
explained  in  the  next  section,  it  is  desirable  to  keep  the  collection  platform  as  simple  as 
possible. 

E.  LQR  EVALUATION 

1.  Evaluation  Location 

When  constructirig  the  monitoring  algorithm,  the  physical  limitation  which  stood 
out  was  the  disparate  data  rates  of  the  downlink  and  uplink.  Secondly,  weight,  space,  and 

a 

equipment  requirements  added  to  the  notion  that  most  of  the  link  monitoring  actions  and 
evaluations  should  be  conducted  at  the  surface  platform,  and  as  little  information  as 
possible  should  be  transmitted  on  the  low  data  rate  uplink  that  was  not  concerned  with 
mission  command  and  control.  Therefore,  while  the  collection  platform  actually  t\  aluates 
the  LQR,  the  LQR  construction  must  be  conducted  on  the  surface  v/ith  as  much  infor.mation 
packed  into  as  few  bits  as  possible. 

2.  Information  Content 

Due  to  the  minimal  bandwidth  available  for  transmission,  the  actual  PPP  LQR 
construct  is  not  a  viable  option,  instead,  a  proprietary  LQR  is  recommended  which  must 
contain,  at  a  minimum,  the  status  of  the  link.  Additional  requirements  would  be  based  on 
mission  type  and  applications  being  used.  For  general  purposes,  a  two-bit  report  was 
deemed  sufficient,  which  included  link  status  and  the  trend  of  the  link. 

In  a  different  context,  minimal  information  transmitted  to  the  collection  platform 
can  have  a  multitude  of  possibilities.  For  instance,  a  transmission  containing  n  bits  could 

lead  to  2“  possible  actions  to  be  taken.  Secondly,  each  different  value  could  signify  a 
threshold  at  which  certain  BER-sensitive  applications  could  sleep  or  wake  up.  A  final 
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scenario  can  be  seen  where  the  bits  cculd  be  interpreted  as  a  preset  contingency  action,  such 
as  a  frequency  shift. 

3.  Acting  Upon  an  LQR 

No  study  has  been  done  to  determine  actions  to  be  conducted  upon  receipt  of  an 
LQR.  Minimum  requirements  for  LQR  content  have  been  established,  but  no  hard  arid  fast 
evaluation  implementation  has  been  recommended.  However,  it  is  recommended  that  LQR 
information  content  should  be  based  on  a  general  mission  scenario  common  to  CDL 
deployment  situations,  while  evaluation  methods  should  be  variable  based  on  specific 
mission  and  platform  scenarios. 
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IV.  OPNET  MODELLING  OF  PPP  AND  LINK  MONITORING 


A.  BASIC  OPNET  CDL  MODEL  DESCRIPTION 

The  CDL  has  been  modelled  in  OPNET  as  two  remote  FDDI  LANs  connected  by  a 
number  of  point-to-point  links  Figure  9  shows  the  OPNET  network  level  representation  of 
the  model.  Ring  0  represents  the  Collection  Platform  (CP)  LAN  and  ring  1  portrays  the 
Surface  Platform  (SP)  LAN.  The  four  point-to-point  links  terminating  at  ringl  denote 
components  of  the  274  Mbps  return  link,  while  the  one  link  back  to  ring  0  models  the  2(X) 
Kbps  command  link. 

Each  basic  FDDI  station,  illustrated  in  Figure  10,  has  the  capability  to  transmit 
synchronous  and  prioritized  asynchronous  traffic.Additionally,  the  station  collects 
statistical  data  particular  to  the  OPNET  implementation.  Llc_src  and  llc  sink  are  OPNET 
model  entities  of  the  Logical  Link  Control  (LLC),  while  mac  represents  the  FDDI  MAC 


ringO  ringl 


Figure  9:  Top  Level  CDL  Model 
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Figure  10:  Basic  FDDI  Station 

layer.  Finally,  phyjx  and  phyjx  represent  the  physical  layer  transmitter  and  receiver. 
Additional  details  of  this  FDDI  station  model  can  be  found  in  [9], 

Application  comiections  are  represented  by  10  stations  on  each  ring,  each  of  which  can 
transmit  data  on  the  ring  destined  for  any  station  on  either  ring.  Each  LAN  has  a  bridging 
station,  designated  F9,  which  is  the  LAN’s  connection  to  the  CDL.  Figure  1 1  shows  the  10 
station  ring,  while  Figure  12  shows  the  collection  platform  bridging  station.  The  additional 
modules  in  Figure  12  represent  four  point-to-point  transmitters  and  one  receiver  for  CDL 
communication. 

The  command  link  is  modelled  as  one  point-to-point  link  with  a  data  rate  of  200  Kbps. 
The  return  link  is  modelled  as  four  links  wiili  different  data  rates,  currently  set  at  1 .53, 3.06, 
21.42,  and  42.34  Mbps.  The  links  are  connected  to  transmitters/rectivers  patched  into  the 
Logical  Link  Control  (LLC)  of  the  bridging  stations. 

Jamming  is  introduced  over  the  point-to-point  links  as  a  function  of  varying  bit  error 
rate  (BER).  Two  jamming  types  are  currently  implemented:  a  chaimel-swept  jammer  with 
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Figure  11:  10  Station  FDDI  Ring 


fixed  durations  and  intervals,  and  a  pulse  jammer  with  random  durations  and  inter\’als. 
Both  jamming  configurations  use  a  random,  uniformly  distributed  BER  with  maximum 
values  defined  for  jamming  periods  and  intervals  between  jamming. 

There  are  also  two  load  balancing  algorithms  used:  rouno  robin,  which  distributes 
incoming  frames  in  a  cyclic  fashion,  and  empty  selection,  which  puts  the  cuiTent  frame  on 
the  link  with  the  smallest  send  queue.  Details  of  both  jamming  and  load  balancmg 
algorithms  and  their  implementations  may  be  found  in  [10]. 

B.  OVERVIEW  OF  CDL  MODEL  CHANGES 

Changes  made  to  the  existing  OPNET  model  arc  very  basic  with  the  intent  of 
maintaining  as  much  previously  written  code  as  possible.  Actual  code  modifications  are 
done  on  only  five  files  in  the  model: 

-  collection  platform  LLC  sink  process  model  {cpjddi  sink.pr.m) 
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-  collection  platform  LLC  source  process  model  {cp  Jddi_gen.pr.m) 

-  surface  platform  LLC  sink  process  model  {sp  Jddi  sinkpr .m) 

-  surface  platform  LLC  source  process  model  {sp  Jddi_gen.pr.m) 

-  point-to-point  error  allocation  pipeline  stage  {cdl _pt_error.ps.c) 

The  entire  list  of  changes  can  be  broken  down  into  3  areas.  The  first  area  is  data 
encapsulation,  which  deals  mostly  with  the  new  PPP  packet  formats  and  their  various 
fields.  The  link  monitoring  algorithm  is  the  second  area,  which  caused  most  of  the  code 
changes.  This  includes  not  only  the  model  files  listed  above,  but  also  new  attributes  in  the 
simulation  envu-onment  file.  Finally,  statistic  and  probe  additions  were  necessary  to  record 
relevant  data.  For  completeness,  a  section  is  included  on  how  to  use  this  model  for 
experimentation. 

C.  DATA  ENCAPSULATION 

Code  changes  to  encapsulate  data  are  minimal.  They  include  creating  a  formatted  PPP 
packet  and  setting  the  PID.  Any  actions  to  be  taken  are  based  on  the  assigned  PID,  and 
coded  using  a  switch()  statement.  This  structure  allows  for  individual  additions  of  PID 
options  and  easy  debugging  of  packet  contents. 

Two  different  packet  formats  are  used  for  this  implementation:  one  for  standard  PPP 
frames,  and  one  for  Multilink  frames.  Ideally,  one  packet  should  have  been  sufficient,  since 
both  are  actually  PPP  frames.  However,  the  separate  packet  formats  allow  for  simpler 
simulation  coding,  since  otherwise  each  information  field  would  have  had  to  be 
dynamically  created.  Figure  13  shows  both  formats  as  they  are  seen  in  OPNET’s  Parameter 
Editor. 

1.  Standard  PPP  Format 

The  standard  PPP  packet  format  includes  all  the  basic  fields  of  an  HDLC-framed 
PPP  packet.  The  only  editable  fields  are  the  high  and  low  bytes  of  the  PID.  The 
“information”  field  is  present  for  higher  level  encapsulation,  but  none  is  currently  used. 
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Figure  13;  PPP  Piicket  Formats  in  OPNET 
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Other  than  a  higher  level  packet,  any  information  to  be  transmitted  in  this  type  of 
PPP  packet,  such  as  LQR  data  or  other  PID-specific  fields,  must  be  hard-coded  using  a 
kernel  procedure,  op _pk Jd  set.  An  example  can  be  found  in  the  file  sp Jddi  gen.pr.m, 
where  the  LQR  data  is  added  to  the  PPP  packet. 

2.  PPP  Multilink  Format 

The  Multilink  packet  has  the  same  basic  elements  as  the  PPP  packet,  with  the 
addition  of  fields  specific  to  a  Multilink  packet.  The  overall  packet  is  formatted  with  the 
optional  Multilink  Protocol  header  using  a  12  instead  of  24-bit  sequence  number  and  a  B, 
E,  and  filler  sequence  of  4  bits  instead  of  8. 

The  “BE”  field  is  listed  as  information  because  a  fragmenting  procedure  has  not 
been  implemented  with  this  model.  Also,  the  field  name  “FDDI_frame”  is  only  for 
semantics;  any  frame  or  datagram  can  be  inserted  into  this  field,  as  long  as  it  is  in  an 
OPNET  packet  format. 

D.  LINK  MONITORING  MODEL 

1.  Coli^ction  Platform  (CP)  Logical  Link  Control  (LLC)  Sink 

All  FDDI  frames  destined  for  the  SP  come  up  through  the  MAC  layer  to  iJie 
Logical  Link  Control  (LLC)  «ink  on  the  bridge  station.  Also,  any  frames  generated  by  the 
bridge  station  which  are  destined  for  the  SP  also  pass  to  the  sink  module  from  the  bridge 
station’s  own  LLC  source.  These  frames  are  reframed  in  PPP  frames  and  queued  for 
transmission  to  the  SP  bridging  station’s  LLC  source  based  on  the  load  balancing  algoridim 
selected  in  the  environment  file. 

For  monitoring  packet  generation,  the  insertion  rate  (named  linkjnonjramrate 
in  the  code)  is  retrieved  from  the  environment  file.  Upon  process  initialization,  the  'INIT 
state  schedules  a  process  self-intcmipt  at  each  increment  for  the  duration  of  the  simulation. 
When  this  self-interrupt  occuis,  the  'DISCARD'  state  creates  a  monitoring  frame  of  a  fixed 
size  {monjpkt_si2e),  which  is  read  in  from  the  environment  file.  The  frame  is  then 
enqueued  based  oi?  the  load  balancing  algorithm  in  place  for  the  regular  PPP  data  frames. 
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Tlie  monitoring  frame  itself  is  a  PPP  frame  structure  with  a  fixed  size  assigned  via 
a  kernel  procedure  equal  to  the  desired  monitoring  frame  size.  Due  to  OPNET’s  enor 
allocation  constructs  and  the  methods  used  in  designing  the  model,  there  is  no  need  to 
generate  a  pseudo-random  bit  stream  as  ttie  contents  of  the  frame  have  no  bearing  on  the 
number  of  bits  deemed  to  be  in  en  or. 

2.  Pipeline  Error  Allocation  Stage 

In  OPNET,  each  link,  whether  a  point-to-point,  bus,  or  radio  link,  is  defined  as  a 
number  of  stages  where  certain  actions  take  place.  For  instance  a  point-to-point  link  uses 
three  stages,  each  represeured  by  a  separate  C  program;  propagation  delay,  error  allocation, 
and  error  detection.  None  of  these  programs  is  used  in  the  OPl'lET  graphic  interface  except 
to  assign  their  names  to  the  stage  attributes  of  the  appropriate  link  in  the  network,  as  shown 
in  Figure  14.  Also,  these  programs  must  be  edited  through  a  separate  line  editor  and 
individually  compiled  before  the  overall  simulation  can  be  archived  and  bound. 
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Figure  14:  Pipeline  Stage  Name  Setup  in  OPNET  Network  Level 
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Each  packet  is  acted  on  by  these  stages,  with  the  resulting  values  assigned  to  a 
fjjced  set  of  kernel  variables  unique  to  each  packet.  For  instance,  each  packet  has  a  kernel 
variable  named  OPC_TDA._PT_NUM_ERRORS,  but  the  value  contained  is  unique  to  the 
packet. 

The  errors  ir  a  packet  are  calculate4  using  a  timestamp,  the  size  of  the  packet,  and 
the  jamming  pattern  sci  up  in  the  environment  file.  [10]  deta  s  this  error  allocation 
procedure.  Consequently,  this  total  quantity  of  eirois  is  put  into 
OPC_TDA_PT_NUM_ERRORS  and  is  carried  with  the  packet  until  it  is  read  in  the  surface 
platform  LLC  source  process. 

3.  Surface  Platform  (SP)  Logical  Link  Control  (LLC)  Source 

PPP  frames  are  received  at  the  SP  LLC  source  on  all  four  point-to-point  links 
from  the  CP  and  are  evaluated  based  on  their  PID’s  high-order  byte.  Data  frames  me 
decapsulated  and  sent  to  MAC  layer  for  forwarding,  or  if  the  frame  is  destined  for  the  SP 
bridging  station,  it  is  passed  to  the  LLC  sink  layer  for  disposition.  Currently,  when  frames 
reach  the  final  destination’s  LLC  sink,  they  are  discarded  without  prejudice. 

All  monitoring  frames  have  a  high-order  PID  byte  of  OxcO.  Once  a  monitoring 
frame  is  detected,  the  low-order  PBD  byte  is  evaluated  to  determine  what  type  of  monitoring 
frame  it  is.  Current  implementation  tssumes  all  LCP  frames  (low-order  PID  byte  =  0x21) 
are  monitoring  packets.  The  number  of  errors  computed  from  the  point-to-point  link  is  then 
read  and  put  in  the  history. 

llie  history  is  generated  in  the  INIT  state  by  a  function  call  named 
create_history.  The  call  requires  an  integer  size,  wMch  is  obtained  from  the  environment 
file.  A  dynamically  allocated  circular  linked  list  of  integers  is  created,  and  a  pointer  is 
returned  to  the  first  element  in  the  list. 

When  an  error  value  is  added  to  the  liistory,  the  pointer  is  incremented  to  the  next 
clement.  A  counter  is  then  incremented  or  decremented  to  reflect  if  the  frame  had  enors  in 
it.  A  new  error  ratio  is  computed,  and  it  is  compared  to  the  ratio  when  the  last  LQR  was 
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sent.  K  the  difference  is  greater  than  the  LQR  reporting  criteria,  the  link  status  is 
reevaluated  and  an  LQR  is  sent  with  the  latest  information. 

The  link  status  is  coded  as  one  integer  value,  ranging  from  0  to  3,  which  imparts 
two  characteristics  of  the  link.  These  characteristics  are  the  actual  status  (i.e.,  good  or  bad), 
and  the  trend  since  the  last  LQR  transmission  (i.e.,  up  or  down).  integer  value  reflects 
the  decimal  equivalent  of  a  two-bit  representation  where  the  ^  atus  is  the  high  bit  and  the 
trend  is  the  low  bit.  This  is  shown  in  Figure  15. 

Hysteresis  is  implemented  by  comparing  the  new  ratio  to  each  of  the  hysteresis 
boundaries.  This  will  only  be  checked  if  an  LQR  is  due  to  be  sent,  so  ±e  hysteresis  bounds 
should  be  placed  at  a  multiple  of  the  LQR  reporting  criteria.  If  either  of  thes  2  boundary 
conditions  have  forced  a  status  change,  the  good/bad  status  is  reset;  otherwise,  the  status  bit 
remains  unchanged.  In  any  case,  the  old  trend  is  then  stripped  and  reset  based  on  the  latest 
comparison.  Finally,  if  an  LQR  is  to  be  sent,  a  PPP  frame  is  formatted  in  the  LLC  source 
and  sent  to  the  LLC  sink  for  transmission  to  the  collection  platform. 

4.  Surface  Platform  (SP)  Logical  Link  Control  (LLC)  Sink 

This  process,  just  as  the  collection  platform  LLC  sink,  encapsulates  all  FDDI 
frames  from  the  MAC  layer  and  any  data  from  the  SP  LLC  source  to  be  transmitted  to  the 
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Figure  15:  LQR  Format  in  OPNET 
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CP.  Since  PPP-encapsulated  I^QRs  are  sent  from  the  LLC  source,  a  check  is  introduced  to 
bypass  all  FDDI  data  collection  and  PPP  encapsulation  if  the  incoming  packet  is  already 
encapsulated.  All  PPP  frames  are  then  transmitted  to  the  collection  platform. 

5.  Collection  Platform  (CP)  Logical  Link  Control  (LLC)  Source 

Once  a  PPP  data  frame  is  received  at  the  CP,  it  is  decapsulated  and  the  data  is  sent 
to  the  MAC  layer  for  further  transmission.  If  the  PPP  frame  is  a  control  frame,  it  is  expected 
to  be  an  LQR,  since  there  is  no  need  for  monitoring  the  ‘unjammable’  200  kbps  uplink. 

The  LQRs  contents  are  evaluated  and  a  message  is  printed  out  to  the  screen  giving 
the  link  status  and  trend.  Since  no  policy  has  been  determined  for  LQR  implementation,  the 
frame  is  then  discarded  witii  no  action  taken. 

E.  ENVIRONMENT  FILE  CHANGES 

All  attribute  changes  and  additions  in  the  enviroiunent  file,  as  with  the  code  changes, 
pertain  only  to  the  bridging  stations.  An  example  environment  file  used  to  generate  data  can 
be  found  in  Appendix  F.  The  added  attributes  include: 

•  linkjnonitor_trans_rate  -  the  rate  at  which  monitoring  frames  are  inserted 
into  the  downlink  bit  stream  (secs/pkt) 

•  monitoring  pkt  size  the  physical  size  of  the  monitoring  packet  (bits) 

•  LQM  transmission  delta  -  the  ratio  change  required  before  an  LQR  is 
transmitted 

•  upper  (lower)  hysteresis  threshold  -  the  boundary  ratio  values  which 
determine  if  the  link  is  good  or  bad 

•  history  length  -  the  number  of  monitoring  packet  values  maintained  to 
calculate  the  ratio 

Additionally,  receiver  ecc  threshold  and  transminer/reojiver  data  rate  built-in 
attributes  have  been  promoted  to  the  environment  file.  For  ecc  threshold,  if  the  value  is 
zero,  any  incoming  packets  with  errors  will  be  discarded  at  the  receiver,  and  no  monitoring 
would  ever  be  conducted.  As  for  data  rates,  promoting  these  attributes  allowed  quick 
changes  to  deteimme  the  effect  of  transmitting  monitoring  frames  on  various  data  rates. 
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F.  PROBE/ANALYSIS  CHANGES 


Six  new  statistics  were  added  to  the  simulation  to  monitor  simulation  performance  aiid 
ensure  proper  operation  of  the  link  monitoring  algorithm.  Code  changes  to  implement  these 
statistics  are  found  in  the  CP  LLC  sink,  the  pipeline  error  allocation  stage,  and  the  SP  LLC 
source.  Finally,  reading  the  local  statistics  required  additional  probes  in  the  simulation’s 
probe  f)lt,fddi_cdl  _probe_special.pb.m. 

1.  Jamming  Tracking 

In  order  to  compare  the  monitoring  results  with  the  jamming  taking  place,  an 
accurate  picture  of  the  jamming  had  to  be  generated.  Since  jamming  is  implemented  as  a 
random  value  within  fixed  bounds  of  time  and  maximum  BER,  the  jamming  input 
parameters  could  present  the  basic  jamming  pattern  but  not  the  precise  BERs  associated 
witli  each  time  slot.  Therefore  it  was  necessary  to  generate  a  statistic  when  the  jamming  is 
actually  taking  place  in  the  code.  Unfortunately,  this  action  occurs  in  the  pipeline  error 
allocation  stage,  which  can  not  utilize  local  statistics  as  a  normal  processor  module  such  as 
a  transmitter  or  queue  would. 

Another  option  would  have  been  to  send  the  BER  and  a  timestamp  to  a  processor 
which  can  maintain  local  statistics.  However,  the  only  data  which  can  leave  a  pipeline  stage 
is  assigned  to  the  kernel  variables  described  in  the  previous  section,  and  each  of  those  has 
a  distinct  purpose  in  the  operation  of  the  pipeline. 

In  the  end,  global  statistics  are  used  to  maintain  the  data.  These  are  able  to  read 
data  generated  anywhere  in  the  simulation,  but  must  be  initialized  by  generating  a  “global 
statistic  handle’’,  which  is  to  be  maintained  using  a  state  variable.  Pipeline  stages  have  no 
mechanism  for  declaring  state  variables,  so  the  handles  are  created  as  an  array  of  handles 
in  the  ‘INIT  state  of  the  CP  ]J^C  sink  module  and  externally  declared  in  the  error  allocation 
C  prograni.  A  global  flag  is  also  set  when  the  handles  are  created  to  prevent  the  error 
allocation  program  from  writing  to  an  undeclared  statistic. 


37 


Since  each  of  the  four  pipelines  uses  the  same  error  allocation  stage,  a  distinction 
must  be  made  between  each  pipeline  for  data  collection  purposes.  The  solution  was  to  use 
the  user  id,  a  built-in,  user-defined  attribute  assigned  to  each  pipeline.  For  simplicity,  the 
user  id  was  assigned,  at  the  network  level,  to  the  corresponding  global  statistic  array  index 
value,  numbered  0  to  3.  Meanwhile,  the  command  link  pipeline  has  a  user  id  of  10,  one 
order  higher  than  any  of  the  return  link  pipelines.  Besides  being  set  in  the  OPNET  network 
model,  the  value  is  assigned  as  a  constant  in  the  error  allocation  stage  for  comparison 
purposes  when  saving  statistical  data. 

2.  Link  Status  Statistics 

In  the  SP  LLC  source,  two  local  statistics  are  added;  RATIO_OUTSTAT  and 
LINK_STATUS_OUTSTAT.  These  names  are  defined  in  the  header  file  to  correspond  to 
two  output  statisdc  values,  which  in  turn  are  probed  to  display  the  bad  packet  ratio  and  the 
link  status  (good/bad).  RATIO_OUTSTAT  is  the  straightforward  ratio,  while 
LINK_STATUS_OUTSTAT  is  scaled  to  display  a  0  or  1  for  good  or  bad,  respectively. 

3.  Additional  Changes 

Numerous  lines  of  previously  created  data  collection  code  have  been  commentfd 
out.  The  purpose  of  this  was  to  shrink  resulting  vector  files  containing  as  much  as  8  MB  of 
data  for  a  10  second  simulation  run.  It  should  be  noted  that  global  statistics,  whic  .i  account 
for  most  of  the  vector  data  in  this  case,  are  saved  in  a  vector  file  each  time  a  simulation  is 
run,  and  do  not  need  to  be  probed  to  be  saved.  To  alleviate  this,  the  OPNET  modelling 
manual  recommends  using  a  condition  flag  to  decide  at  runtime  whether  certain  global 
statistics  should  be  saved. 

G.  RUNNING  EXPERIMENTS 

Running  experiments  requires  changes  to  two  files:  the  environment  file  to  be  used, 
and  the  script  file  to  be  used.  Examples  of  each  are  shown  in  Appendices  F  and  G, 
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respectively.  Environment  file  changes  for  link  monitoring  consist  of  altering  attributes 
listed  in  section  D  of  Chapter  V. 

The  purpose  of  the  script  file  is  to  allow  the  user  to  lun  the  simulation  without  using 
the  OPNET  graphical  interface.  Tliis  frees  up  valuable  memory,  and  allows  for  background 
execution.  It  is  recommended  that  only  one  simulation  be  run  at  a  time  because  simulations 
running  concurrently  compete  for  resources,  and  this  can  lead  to  both  simulations  crashing 
with  no  useful  data  to  show  for  the  30  minutes  of  execution  time.  However,  the  script  file 
does  allow  for  successive  executions  without  user  interaction. 

The  script  file  in  Appendix  G  is  set  up  to  run  the  same  simulation  executable, 
fddi_cdl.sim,  four  times.  On  each  run,  a  different  environment  file  is  used,  and  the  results 
are  saved  in  a  different  vector  file.  The  probe  file  and  simulation  duration  are  also  specified 
on  the  command  line.  The  shell  environment  variable,  debug,  can  be  used  by  the  OPNET 
simulations  to  invoke  the  OPNET  on-line  debugger,  but  as  this  requires  user  interaction,  it 
defeats  the  purpose  of  the  script  file. 

Lastly,  there  are  two  other  requirements  to  ensure  a  smoothly  running  script  file.  First, 
the  .sim  file  is  an  executable,  so  when  executing  the  script,  the  .sim  file  must  be  in  the 
current  directory,  or  the  entire  path  must  precede  the  name  of  the  executable  in  the  script 
file.  Secondly,  an  up-to-date  env_db  file  must  be  present  in  $HOME/op_admin.  If  this  file 
is  not  found,  the  simulation  will  not  run  at  all 


39 


V.  MODEL  EVALUATION 


A.  OVERVIEW 

This  chapter  provides  test  runs  to  demonstrate  the  reliability  of  the  OPNET  computer 
model.  The  tests  show  a  changing  BER,  the  resulting  monitoring  packet  error  ratio,  and  the 
resulting  link  status  changes.  Additionally,  parameters  are  varied  to  demonstrate  the  effects 
of  history,  hysteresis,  and  insertion  rate  on  the  overall  link  status. 

B.  TESTING  SCENARIO 

A  baseline  model  was  developed  for  the  CDL  in  [10].  This  model  was  used  as  the 
testbed  for  link  monitoring  testing.  A  minor  change  was  required  to  reevaluate  the  load 
balancing  algorithms,  as  well  as  adding  a  situation  where  all  monitoring  packets  are 
directed  to  one  specific  multiplexer  input.  Otherwise,  the  original  model  code  remained 
intact. 

Tests  were  only  conducted  on  the  return  link,  since  monitoring  is  only  needed  on  that 
link.  For  these  tests,  most  attributes  listed  in  the  simulation  environment  file  were  retained 
from  the  baseline  model.  Any  additionally  required  attributes  were  promoted  to  the 
environment  file,  in  summary,  any  attribute  which  was  varied  for  simulation  purposes  was 
put  in  the  environment  file. 

The  1 1  variable  environment  attributes  listed  in  Section  FV.E,  as  well  as  the  two  load 
balancing  algorithms  and  the  two  jamming  techniques,  led  to  28  different  model  runs  to 
ensure  reliability.  For  a  basic  reliability  test,  a  periodic  jamming  pulse  is  introduced  over 
all  four  return  link  point-to-point  links.  Figure  16  shows  the  jamming  pulse  over  one  of  the 
links,  however  the  jamming  is  identical  over  all  four  links.  The  duration  of  each  pulse  is 
long  enough  to  ensure  that  it  would  be  detected  by  the  monitoring  system  regardless  of  the 
parameter  settings.  Figures  17  and  18  represent  the  monitoring  output  in  the  form  of  the  bad 
packet  ratio  over  ail  four  links,  and  the  resulting  link  status  (0-good,  1-bad).  Clearly,  these 
figures  show  that  the  basic  model  operates  as  expected. 
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Figure  17;  Bad  Packet  Ratio  for  Basic  Monitoring  Test 
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Figure  18;  Link  Status  for  Basic  Monitoring  Test 
C.  PARAMETER  VARIATION  EFFECTS 

Subsequent  tests  now  need  to  verify  that  trends  in  certain  attributes  affect  the  model 
as  expected.  This  is  accomplished  by  varying  only  one  attribute  for  3-4  trials  and 
comparing  the  results.  For  purposes  of  discussion,  one  set  of  data  is  presented  to  support 
each  case;  however,  numerous  data  sets  were  evaluated  to  ensure  reliable  model 
performance. 

1.  Insertion  Rate 

As  previously  discussed,  insertion  rate  has  a  tremendous  impact  on  the  resulting 
bad  packet  ratio,  and,  therefore,  the  overall  monitoring  scheme.  It  is  assumed  that  insertion 
rate  is  directly  proportional  to  the  change  in  bad  packet  ratio:  the  faster  the  insertion  rate, 
the  quicker  a  change  may  occur  in  the  ratio.  To  demonstrate  that  idea,  four  runs  are  shown 
in  Figures  19  through  22.  Each  of  these  examples  are  exactly  the  same  except  tliat  the 
insertion  rate  is  decreased  by  a  factor  of  10  in  each  subsequent  graph. 
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Figure  19:  Insertion  Period  of  729  Microseconds 
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Figure  20:  Insertion  Period  of  7.29  Milliseconds  (ms) 
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Figure  21:  Insertion  Period  of  72.9  ms 
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Figure  22:  Insertion  Period  of  729  ms 
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Figure  4  has  an  insertion  rate  of  1  monitoring  frame  every  729  microseconds. 
Assuming  full  utilization  of  the  aggregate  bandwidth,  that  equals  one  5,000-bit  monitoring 
frame  for  every  10  20,000-bit  data  frames,  or  an  overhead  of  approximately  2.5%. 
Likewise,  Figure  5  shows  an  insertion  rate  of  7.29  milliseconds,  equalling  .25%  overhead, 
and  so  on. 

The  jamming  pulse  used  here  cycles  every  0.8  seconds  with  a  0.4  second  pulse 
duration.  Clearly  Figure  19,  with  the  highest  insertion  rate,  has  tlie  best  picture  of  the 
jamming.  In  Figure  20,  slower  response  is  evident  due  to  the  lower  insertion  rate,  yet  a 
decent  picture  is  maintained.  However,  Figures  21  and  22  show  increasingly  severe  cases 
of  undersampiing,  where  the  monitoring  frame  insertion  rate  is  so  slow  that  the  ratio  can 
not  accurately  reflect  the  jamming.  This  conclusively  shows  the  expected  results  of 
decreasing  insertion  rate,  verifying  the  model  for  this  attribute. 

2.  History  Length 

It  is  assumed  that  the  history  length  is  inversely  proport  onal  to  the  ratio  rate  of 
change:  the  longer  the  history,  the  less  effect  each  monitoring  frame  has  on  the  overall  bad 
packet  ratio.  This  fact  can  be  verified  by  simple  calculation,  while  the  graphical 
representations  shown  in  Figures  23,  24,  and  25  show  two  characteristics  related  to 
increasing  history  length. 

Figure  23  is  a  scenario  with  a  history  length  of  20,  while  Figures  24  and  25  show 
the  same  test  run  with  history  lengths  of  30  and  40,  respectively.  Tne  jamming  is  different 
over  each  of  the  four  liriks,  to  simulate  a  widely  varying  jammer,  while  the  monitoring 
packets  are  inserted  in  a  round  robin  fashion. 

The  first  point  of  interest  is  the  expected  decrease  in  the  rate  of  change  in  the  ratio. 
At  the  same  point  in  time,  each  successive  graph  takes  slightly  longer  to  register  a  drop  in 
the  jamming.  This  is  a  direct  result  of  increasing  history  length. 

Of  more  significance  is  the  fact  that  the  rate  of  change  for  each  successive  run  is 
only  slightly  lower  tlian  the  previous  run.  One  may  assume  the  rate  of  ratio  change  should 
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Figure  23:  History  of  Length  20 


Figure  24;  History  of  Length  30 


Figure  25:  History  of  Length  40 

be  more  significant,  and  it  would,  except  that  the  increased  history  length  biings  the 
extreme  values  (high  and  low)  closer.  As  a  result,  the  packet  ratio’s  trend  changes  more 
quickly  than  if  the  peaks  were  the  same  as  a  run  with  a  smaller  history.  Although  this  is  a 
benefit  of  longer  histories,  the  closing  of  the  peak  values  causes  a  significant  impact  on 
hysteresis  and  the  determination  of  appropriate  hysteresis  bounds. 

In  any  case,  it  can  be  seen  that  the  model  accurately  represents  the  effects  of 
changing  history  length. 

3.  Hysteresis  Bounds 

The  .implementation  of  hysteresis  is  a  simple  comparison  of  the  current  bad  packet 
ratio  to  bounds  input  into  the  simulation  through  the  environment  file.  While  that  is  not 
significant  and  can  be  visually  evaluated,  what  is  important  is  the  effect  hysteresis  has  on 
link  status. 
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In  a  simple  scenario,  where  jamming  is  fixed  and  periodic  (not  highly  likely), 
hysteresis  would  have  very  little  impact.  Figure  26  which  illustrates  such  a  situation,  shows 
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Figure  26:  Hysteresis  Used  in  Conjunction  With  Periodic  Jamming 

that  periodic  jamming  is  accurately  reflected  in  the  bad  packet  ratio.  Although  this  test  run 
was  conducted  with  hysteresis  bounds  of  0.5  and  0.3,  it  is  easy  to  see  that  replacing  the 
hysteresis  with  a  single  pivot  value  liigher  than  0.3  would  actually  improve  the  amount  of 
time  that  the  link  would  be  declared  good,  as  well  as  eliminate  thr  iieed  for  any  hysteresis. 

On  the  other  hand,  non-periodic  jamming,  as  Figure27  shows,  docs  not  lend  itself 
to  a  single  pivot  value.  Here  it  can  be  seen  that  without  hysteresis,  but  with  a  single  pivot 
value  set  at  0.4,  excessive  oscillation  would  occur  tliat  could  affect  t  "  .ipment  performance 
and  long  tcim  wear  on  circuitj-y. 

I).  SUMMARY  OF  RESULTS 

Each  of  the  previous  examples  shows  that  the  OPNET  computer  model  accurately 
converts  changes  in  BER  into  a  link  monitoring  ratio.  In  turn,  this  ratio  is  properly 
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Figure  27:  Hysteresis  Used  in  Conjunction  With  Non-periodic  Jamming 


evaluated  in  a  manner  consistent  with  the  proposed  link  monitoring  mechanism.  More 
specifically,  significant  characteristics  of  the  modelled  link  monitoring  mechanism  behave 
as  expected.  Put  together,  these  factors  lead  to  the  conclusion  that  the  link  monitoring 
system,  as  implemented  in  conjunction  with  the  baseline  OPNET  CDL  model,  accurately 
reflects  the  link  monitoring  design  presented  in  Section  III  of  this  thesis. 


VI.  OPNET  TCP/IP  MODELLING 


A.  PURPOSE/SCOPE 

The  long  term  goal  of  the  OPNET  network  model  is  to  integrate  it  with  a  working 
network,  transport,  and  application  layer  in  order  to  better  measure  user-to  user 
performance  over  the  CDL.  TCP/IP  has  been  chosen  for  the  model  because  of  its 
widespread  implementation.  MIL  3  supplies  a  baseline  TCP/IP  model  within  an  Internet 
model,  but  the  TCP  model  is  very  simple  in  that  it  is  based  on  the  original  1981  TCP 
standard  and  has  not  integrated  any  of  the  improvements  used  in  present-day  TCP  suites. 
These  improvements  include  Kam’s  algorithm,  Jacobsen  header  compression,  and  round- 
trip  time  estimation,  among  others. 

The  work  for  this  portion  of  the  project  is  the  first  step  towards  full-scale  integration 
of  the  CDL  network  model  with  TCP/IP.  Additional  changes  are  recommended  to  enhanc.e 
the  TCP  model  and  change  the  appUcation  models  into  CDL-specific  applications. 

The  scope  of  this  section  is  limited  to  OPNET  code  and  model  changes  designed  t  o 
integrate  the  CDL  network  model  with  the  OPNET  generic  internet  model.  No  evaluatj.ons 
are  conducted  except  to  verify  that  the  model  runs  correctly. 

B.  SUMMARY  OF  CHANGES 

The  changes  to  integrate  tlie  two  models  revolve  entirely  around  communications 
between  layers,  primarily  the  network  protocol  (IP)  and  tne  data  link  protocol  (FDDl.  \AIli 
MAC  layers).  Since  each  model  is  self-contained,  and  substantial  changes  have  been  ntad; 
to  the  network  model,  addidonal  changes  must  be  made  to  both  models  to  work  f  ogemer 
properly. 

For  instance,  the  basic  Internet  model  station’s  IP  layer  is  designed  to  commu/iicate 
directly  with  the  OPNET’s  basic  FDDl  MAC  layer,  as  shown  in  Figure  28,  while,  the 
integrated  basic  station  model  calls  for  an  LLC  layer  between  them  as  weU  as  a 
substantially  different  MAC  layer,  shown  in  Figure  29.  Cn  the  other  hand,  th.e  CDL 
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Figure  28;  Basic  OPNET  Internet  Station  Model 

network  station  model,  previously  shown  in  Figure  10,  has  no  layers  above  the  LLC,  so  all 
traffic  is  created  and  destroyed  in  the  LLC  instead  of  at  the  application  layer. 

To  alleviate  communications  problems,  the  OPNET  data  packets  and  Interface 
Control  Information  packets  (ICIs)  must  be  revamped  to  communicate  correct  and  relevant 
data  between  the  LLC  and  the  MAC.  Also,  code  mu;>t  be  introduced  into  the  pertinent 
processor  modules  to  enable  usage  of  the  nevr  data  packets  and  ICIs. 

C.  PACKET/ICI  FORMAT  CHANGES 

In  OPNET,  data  communication  between  any  two  processors  is  done  by  sending  a 
packet  and/or  ICI  to  an  adjoining  processor  through  a  stream.  A  packet  is  used  to  model  the 
flow  of  actual  data,  while  an  ICI  is  used  to  model  control  information  betv'een  layers. 
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Figure  29:  Integrated  CDL-TCP  Basic  Station  Model 

OPNET  allows  direct  packet  communication  between  any  two  processors  anywhere  in  the 
model,  bypassing  the  streams,  but  utilizing  this  feature  violates  the  model’s  integrity  and  is 
discouraged. 

The  first  area  of  interest  is  the  stream  connecting  the  arp  module  to  the  llc_source. 
Originally,  the  arp  v/as  designed  to  communicate  directly  with  the  MAC  layer  using  a 
packet,  ipjdgram,  and  an  ICI,  ipjnac_req.  These  formats  are  satisfactory  and  are  left 
intact,  forcing  the  llc_source  module  to  conform  to  the  new  inputs. 


52 


The  llc_source  module  used  in  the  network  CDL  model  transmits  a  packet  using  the 
fddijlc  Jf  format,  and  an  ICI  using  the  fddijnac  req  format  to  the  MAC  layer.  However, 
this  packet  did  not  conform  to  standards  put  forth  in  [11].  So,  the  packet  was  modified  to 
contain  the  appropriate  information,  while  all  other  data,  still  necessary  to  be  passed  to  the 
MAC  layer,  was  placed  in  the  ICI.  Figures  30  and  31  show  the  new  packet,/dd/_//c  Jrjcp, 
and  lCl,fddijnacj'eqjcp. 
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Figure  30:  LLC  Frame  Format  fddijlc  Jrjcp 


Figure  31:  LLC  Source  to  MAC  ICI  Format  fddijmc_reqjcp 
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Insiae  the  MAC  and  physical  layers,  an  OPNET  packet  is  passed  from  station  to 
station  without  an  ICI.  However,  data  not  included  in  the  MAC  frame  header,  needed  for 
FDDl  performance  calculations,  must  be  transmitted  with  the  data  to  be  collected  at  the 
final  destination.  Normally,  this  information  would  be  placed  in  an  ICI,  which  in  turn 
would  be  attached  to  the  MAC  frame.  In  this  case,  though,  since  there  were  only  two  pieces 
of  data,  the  information  was  simply  appended  to  the  MAC  frame  format,  as  shown  in  Figure 
32.  It  is  important  to  note  that  the  fields  in  question,  pri  and  cr_time,  have  a  size  of  0  bits. 
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Figure  32;  FDDI  MAC  Frame  FoTm&tfddijnacJrjcp 

This  is  so  the  contents  of  those  fields  will  not  be  counted  towards  the  total  FDDI  bits 
transmitted,  transmission  delay,  or  error  calculations. 

Up  from  the  MAC  to  the  LLC  sink,  the  same  packet  format  is  used  as  in  Figure  30,  but 
a  different  ICI  is  used.  The  new  ICI  fonnsX,fddijnacJndjcp,  (shown  in  Figure  33),  is 
used  because  most  of  the  fields  passed  in  fddijnac  req  jcp  pertain  to  the  FDDI  token  and 
type  of  service.  Most  of  this  information  is  unnecessary  above  the  MAC  layer,  although  the 
pri  and  crjime  fields  arc  still  required  for  data  collection. 

D.  CO?3ING  CHANGES 

Changes  were  made  to  the  following  CDL  network  model  files: 

.  .TJJ.*  -  ^  urjj.*  j;  .* _ 'y  _ _ 
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Figure  33:  MAC  to  LLC  Sink  ICI  Format  fddijnacjndjcp 

•fddi_station.nd.m  ->  inet _fddinix.nd.m 
•cpni.nd.m  ->  cpnijcp.nd.m 
•spni.nd.m  ->  spnijcp.nd.m 
•cpjddi_gen.pr.m  -->  cp  Jddi_genjcp.pr.m 
•cpjddijink.pr.m  ->  cp Jddijsinkjcp.pr.m 
•sp Jddi_gen.pr.m  ->  sp  Jddi_genjcp.pr.m 
•sp Jddi_sink.pr.m  -->  spjddi_sinkjcp.pr.m 
•fddijmc.prm  ->  fddi_nuicjstat5 pr.m 
•cp Jddijnac.pr.m  -->  cp Jddijnac_tcp.pr.m 
•sp J'ddi jnac.pt  .m  -->  sp Jddi  mac jcp. pr.m 

The  network  level  changes  consisted  of  nev/  icons  for  eacn  of  the  rings,  and  e  different 
icon  for  each  LAN  station,  as  illustrated  in  Figures  34  and  35.  Each  non-bridging  station  in 
an  inet  Jddinix  node  model  as  shown  in  Figure  29.  The  CP  and  SP  bridging  stations  are 
shown  in  Figures  38  and  37,  respectively. 

AU  coding  changes  for  this  model  addition  were  done  to  implement  the  packet  and  ICI 
changes  delineated  in  the  previous  section  and  are  explicitly  commented  in  the  appendices. 
The  only  noteworthy  changes  occurred  in  the  bridging  stations. 


55 


riAgO 


ringl 


Figure  34:  TCP-enhanced  CDL  Network  Model 


Figure  35;  TCP-enhanced  FDDI  Ring 

‘Phe  bridging  stations  are  uniiJcc  the  basic  ring  stations  in  that  they  also  use  PPP.  This 
means  that  the  LIX  source  and  sink  on  each  station  may  be  handling  PPP  frames,  IP 
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Figure  36;  TCP-enhanced  CP  Bridging  Station 

datagrams,  and  LLC  frames  simultaneously.  Furthermore,  the  added  stream  between  the 
LLC  source  and  sink  requires  special  iCl  formatting  considerations. 

Many  different  situations  arise  because  of  the  multiple  formats  entering  and  exiting  the 
LLC.  At  the  LLC  source,  each  PPP  frame  could  be  a  control  frame,  an  LLC  frame  for  the 
local  LAN,  or  an  encapsulated  IP  datagram  for  the  bridging  station.  Likewise,  LLC  frames 
arriving  at  the  LLC  sinl'  could  be  destined  for  the  remote  LAN  or  the  higher  layers  of  the 
bridging  station. 

In  the  CDL  network  model,  any  LLC  frame  coming  from  the  MAC  uses  fddi  jnacjnd 
as  its  ICI  format.  However,  from  the  LLC  source  to  the  sink,  the  ICI  used  is  fddi  mac  req. 
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Figure  37:  TCP-enhanced  SP  Bridging  Station 


This  conflict  is  solved  by  new  fields  already  added  to  the  fddijmcJndjcp  ICI.  Due  to 
changes  already  in  place  because  of  the  new  LLC  frame  format  (Figure  30),  all  ICIs  going 
into  the  LLC  sink  are  identical,  eliminating  a  significant  portion  of  code. 

Another  problem  with  the  new  LLC  frame  format  can  be  seen  as  frames  are 
transmitted  over  the  CDL.  As  can  be  seen  in  Figure  3,  once  an  LLC  frame  is  transmitted  to 
the  remote  LAN,  there  is  no  data  field  directly  accessible  to  slate  the  ultimate  destination. 
An  ICI  would  be  beneficial,  but  the  ICI  would  be  tied  to  the  transmission  of  the  PPP- 
encapsulated  LLC  frame,  and  would  have  to  be  retrieved  at  the  remote  bridging  station, 


remstalled  to  the  decapsulated  LLC  frame,  and  then  sent  to  the  destination  address.  This  is 
feasible,  but  cumbersome. 

A  solution  is  found  using  the  Kernel  ftocedure  op_pk_ici_set.  This  procedure  ties  the 
ICI  to  the  packet  rather  than  the  transmission  event.  Therefore,  an  fddi_mac_req_tcp  ICI 
can  be  installed  to  the  LLC  frame,  encapsulated  in  PPP,  transmitted,  decapsulated,  and  sent 
to  the  LLC  source  layer.  There  it  can  finally  be  accessed  for  proper  routing  of  the  LLC 
frame. 

E.  CONCLUSION 

The  TCP/IP  changes  are  very  basic,  yet  they  involve  every  facet  of  the  LLC  source, 
LLC  sink,  and  MAC  layers.  The  changes  are  small  and  spread  out  throughout  the  code,  but 
well  documented.  It  is  recommended  that  this  model  be  used  as  the  primary  building  block 
to  achieve  full  TCP/IP  functionality  in  the  CDL  netwoik  model. 
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Vll.  CONCLUSIONS  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

In  this  thesis,  we  iiave  presented  and  modelled  a  link  monitoring  mechanism  for  the 
CDL.  The  effectiveness  of  this  mechanism  is  measured  by  normal  test  runs,  and  by  vaiying 
critical  monitoring  parameters  in  order  to  demonstrate  expected  results.  Additiorjaiiy, 
changes  are  presented  to  integrate  OPNE^’s  TCP/IP  model  with  the  existing  CDL  network 
model. 

Specifically,  the  contributions  made  by  this  thesis  are  as  follows; 

1)  We  have  identified  the  critical  parameters  relevant  to  the  CDL  status  monitoring. 

2)  We  have  successfully  shown  their  impact  by  implementing  a  n  onitoring 
mechanism  in  OPNET. 

3)  We  have  identified  how  the  monitoring  mechanism  can  be  fitted  into  the  PPP  and 
CDL  network  interface  framework. 

4)  We  have  integrated  OPNET’s  TCP/IP  stack  into  the  network  interface  and  LAN 
station  models. 

5)  This  thesis  has  also  completed  the  gradual  development  of  a  re.mote  LAN 
interconnection  model  in  OPNET,  setting  the  stage  tor  detailed  experimentation. 

B.  RECOMMENDATIONS 

The  link  monitoring  mechanism  and  TCP/IP  framework  presents  a  nu,  of  possible 

research  avenues; 

1)  Evaluation  of  HDLC  bit-,  jffmg  overhead  over  a  multiplexed  microwave  hnk, 
such  as  the  CDL. 

2)  Experimentation  with  the  link  monitoring  parameters  to  determine  their  optimal 
settings  for  dealing  with  potential  jammers. 

3)  Development  of  CDL-specific  applications  to  attach  to  the  OPNET  computer 
model  for  further  evaluation. 
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4)  Evaluation  of  CP  ou^ut  buffer  size  and  implementation  in  conjunction  with 
jamming  and  real-time  data. 
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APPENDIX  A 


RING  0  LLC_SRC  MODULE  CODE 
“cp_fddi_gen.pr.c” 


/*  Process  model  C  form  file:  cp_fddi_gen.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  *! 
#include  <opnet.h> 

#include  “cp_fddi.^ea.pr.h” 
FSM_EXT_DECS 


/*  Header  block  */ 

tdefine  MAC_LAYER_OUT_STREAM  0 

#define  LLC_SINK_OUT_sfREAM  1  /*  1 8  APR94*/ 

/*  define  possible  service  classes  for  frames  *! 
#defineFDDLSVC_ASYNC  0 

#defineFDDI_SVC_SYNC  1 

/*  define  token  classes 

#defiiieFDDI_TK_NONRESTRICl'ED  0 

#defineFDDI_TK_RESTPJC7ED  1 


/*  State  variable  definitions  *! 
typedef  strua 
{ 

FSM_SYS_STATE 

Distribution* 

Distribution* 

Distribution* 

Distribution* 

Objid 


sv_inter_dist_ptr; 

svjen_dist_ptr; 

sv_dest_dist_pir; 

sv_pklj)riority_ptr; 

sv_mac_objid; 
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Objid 

int 

int 

int 

int 

int 

int 

double 

double 

double 

Ici* 

Ici* 

Ici* 

Packet* 

}  cp_fdc'i_gen_state; 


sv_my_id; 

sv_low_dest_addr; 

sv_high_dest_addr; 

sv_station_addr; 

sv_src_addr; 

sv_low_pkt_pri  ority ; 

sv_high_pkt_priority; 

sv_amval_rate; 

sv_.mean_pk_len; 

sv„async_imx; 

sv_macjdptr, 

sv_mac_iciptrl; 

sv_llc_ici_ptr; 

sv_pkptrl; 


#define  pr_state_j5tr 
#define  inter_dist_ptr 
#define  len_dist_ptr 
#define  dest_dist_ptr 
#define  pkt_priority_ptr 
#defii)e  mac_objid 
#define  my_id 
#define  lo\v_dcst_addr 
tdefine  jtiigh_dest_addr 
#define  station_addr 
#define  src_addr 
#define  low_pkt_4Jriority 
#define  high_pkt_priority 
#define  arrival„.rate 
#define  niean_pk_len 
#defiae  async_niix 
#define  macjciptr 
#define  inac_iciptrl 
#define  llc_ici_ptr 
#definepkptrl 


((cp_fddi_geD_state*)  SimI_Mod_State_Ptr) 

pr_state_ptr->sv_intcr_dist_ptr 

pr_state_ptr->svjen_dist_pir 

pr_state_ptr->sv_dcst_dist_ptr 

pr_state_ptr->sv_pkt_priority  4)tr 

pr_  state j)tr->sv_raac_objid 

pr_state_ptr->sv_my_id 

pr_state_ptr->svJow_dcst_addr 

pr_state_pir->sv_high_d»ist_ad(ir 

pr_state_ptr->sv_station_addr 

pr_state_ptr->sv_src_addr 

pr_state_ptr*>sv_low_pkt_priority 

pr_oiate_ptr->sv_high_pkt_priority 

pr_siate_ptr->sv_arrival_rate 

pr_statej)tr->sv_Riean_pk_len 

pr_staie_ptr->sv_async_mix 

pr_state4)tr->sv_inac_iciptr 

pr_state_ptr->sv_mac_iciptr  1 

pr_suiej)tJ'->sv_llc_ici_ptr 

pr_state„ptr->sv_pkptr  1 


/*  Process  model  interrupt  handling  procedure  */ 


void 

cp_fddi_gen  () 

{ 
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P^okc’.  ■'‘pkptx,  *ppp_pkptr; 

ini  I  klen; 

iut  dt--st_addr; 

jnt  i,  restricted; 

int  pki_prio; 

int  ppp.jjid_h,  ppp_p!d_l; 

int  sums; 


FSM_ENTCR  (cp_fddi_^en) 

FSM_ELOCK_SWITCH 

{ 

/* - 

/**  state  (INTT)  enter  executives  **! 

FSM_STATE..ENT1ER_UNFORCED  (0.  suteO_enter_exec.  “INTT’) 

{ 

/*  determine  id  of  own  processor  to  use-  in  finding  attrs  */ 
myjd  =  op_id_se]f  0; 

/*  determine  addres-s  range  for  uniform  desination  assignment  */ 
op_ima_obj_attr _get  (my_id,  "low  dest  address”,  &low_dest_ad(ir); 
op„ima_obj_attr_get  tmy_id,  "high  dest  address”,  &high_dest_ad(jr); 

/*  determine  object  id  of  connected  ‘mac’  layer  process  */ 
mac_objid  =  op_topo_assoc  (myJd,  OPC_TOPO_ASSOC_OUT, 
OPC_OBJMTYPE_MODULE.  MAC_LaYER_OUT_STREAM): 

/*  determine  the  address  assigned  to  it 

/*  which  is  also  the  address  of  thi  s  sution  *! 

op_iraa_obj_attr_get  (mac.objid,  "station_address”,  &station_adcL-); 


!*  set  up  a  distribution  for  generation  of  addresses  */ 
dcst_dist_ptr  =  op_disiJoad  r'uniform_int”.  low..dest_addr, 
high_dest_addr); 

/♦  added  26DEC93  */ 

/“  determine  priority  range  for  uniform  traffic  generation  */ 
opJma_obj_attr_get  (my.Jcl,  “high  pkr  priority”,  &high_pla_pr:ority); 
op_ima_obj_attrjget  (iny_id,  "low  pki  priority”,  &lowj)kt_priority); 
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/*  set  up  a  distribution  for  generation  of  priorities  */ 
pkt_4)riority_ptr  =  op_dist_load  (“uniform_int”,  low_pkt_priority, 
high_Fktj)riorify); 

/*  above  added  26DEC93  */ 


/*  also  determine  the  arrival  rate  for  packet  generation  */ 
op_inia_obj_attr_^et  {my_id,  “arrival  rate”,  &arrival_rate); 

/*  determine  the  mix  of  asynchronous  and  synchronous  */ 

/*  traffic.  This  is  expressed  w  the  proportion  of  */ 

/*  asynchronous  traffic,  i.e  a  value  of  1.0  indicates  */ 

/*  that  all  the  produced  traffic  shall  be  asynchronous.  */ 
op_ima_obj_am,get  (my_id,  “async_mix”,  «Skasync_mix); 

/*  set  up  a  distribution  for  arrival  generations  */ 
if  (arrival_rate  !=  0.0) 

{ 

/*  arrivals  are  exponentially  distributed,  with  given  mean  */ 
inter_dist_4)tr  =  op_dist_load  (“constant”,  1.0/  arrival_rate,  0.0); 

/*  determine  the  distribution  for  packet  size  */ 
op_ima_obj_attr_get  (myjd,  “mean  pk  length”,  &mean_j)k_len); 

!*  set  up  corresponding  distribution  */ 

len_dist_pir  =  op_dist_load  (“constant”,  mean_pk_len,  0.0); 

/*  designate  the  time  of  first  arrival  */ 
fddi_gen_6chedule  (); 

/*  set  up  an  interface  control  information  (ICI)  Structure  */ 

/*  to  communicate  parameters  to  the  mac  layer  process  */ 

/*  (it  is  more  efficient  to  set  one  up  now  and  keep  it  */ 

/*  as  a  state  variable  than  to  allocate  one  on  each  packet  xfer)  */ 
mac_iciptr  =  op_ici_create  ("fddi_mac_req”); 

} 

} 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXrr  ( 1  ,cp_fddi  _gen) 
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!**  state  (INTT)  exit  executives  **/ 

FSM_STArE_EXIT_UNFORCED  (0.  stateO_exit_exec.  “INTT’) 

I 

} 


!**  state  (INTT)  transition  processing  **! 
FSM_TRANSIT_FORCE  (1,  statel_enter_exec, ;) 

I* - */ 


/**  state  (ARRIVAL)  enter  executives  **/ 

FSM_STATE_ENTER_UNFORCED(l.  statel_eater_exec,  “ARRIVAL”) 

{ 

/*  Tbis  station  should  receive  frames  from  the  other  Ian  as  long  as  */ 

/*  there  are  frames  in  the  input  streams  addressed  to  this  Ian  *! 

/*check  if  the  interrupt  type  is  stream  interrupt  *//*12APR94*/ 
if(op_intrpt_type()  ==  OPC_INTRPT_STRM) 

{ 

/*  if  it  is,  get  the  packet  in  the  input  sdeam  causing  interrupt  */ 
ppp_plq)ir  =  op_pk_get(op_inttpt_strm()); 
op_pk_nfd_get  (pppj)kptr,  “pid_h”,&ppp_pid_h); 
switch  (ppp_pid_h) 

{ 

case  CxOO;  /*  data  frame  */ 

op_plt_nfd_get  (ppp_pkptr.  “FDDI_frame”.  Apkptrl); 
op_pk  .destroy  (ppp_pkptr); 

/*  get  the  destination  address  of  the  frame  ’*'/ 
r  16APR94  *! 

op_pk_nfd_get(pkptrl,  “dcst_addr”.  &dest_addr); 

I*  check  if  this  frame  destined  for  the  local  bridge  station  */ 
if(dest_addr  =  station_addr) 

/♦  if  it  is.  send  the  packet  to  Uc.sink  directly  */ 

/*  in  order  to  prevent  overhead  of  mac  access  */ 

op _pk_scnd(pkptrl.  LLC_SINK_OUT_STREAM);r  19APR94V 

else 

/*  this  packet  is  to  send  to  mac  *! 

1 

/*  determine  the  source  address  of  the  frame  */ 
op _pk_nfd_get(pkptrL  “src_addr”,  &src_addr); 
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/*  set  up  an  ICI  structure  to  communicate  parameter^  i  o  */ 

/*  MAC  layer  process  */ 

mac_iciptrl  =  op_icLcreate(‘‘tddLniac_req'’); 

/*  place  the  original  source  address  into  the  ICI  ^//*  1  jAPR94  */ 

/*  “fddi_mac_req”  is  modified  so  that  it  contains  the  original  */ 

/*  source  address  from  the  remote  ian  V 
op_ici„attr_set(mac_ieiptrl,  “src„addr”,  src_addr'; 

/*  place  the  destination  address  into  the  ICl  '*!  I*  1 2J  kPR94*/ 
op_ici_anr_set(mac_iciptrl,  “des'.„addr’',  dest_addlj); 

/*  assign  the  service  class  and  requested  token  clas ;  */ 

/*  At  this  moment  the  frames  coming  from  the  rea:  ore  Ian  are  assumcvl  lo  have’^/ 
/*  the  same  priority  as  synchronous  frames  in  order  rjC'i  to  accumulate  */ 

/*  packets  on  the  bridge  station  mac  and  instead  u<  oe-iver  their  destinations  ■*/ 

/*  as  soon  as  possible  */ 
op_pk_iifd_set(pkptrl,  “pri”,  8); 

op_ici_attr_set(mac_iciptrl,  “svc_class”,  ?DDI_  SVC_SY1'JC); 
op_ici_attr_set(inac_iciptrl,  “pri’\  8); 

op_icLattr_set(mac_iciptJ.'l,  “tk^dass”,  FDDI..,'\'K„NONRESTRICTED); 

/*  send  the  packet  coupled  with  the  ICi  */ 
opjci  Jnstall(mac_iciptr  1 ); 

op_pk_send(pkptrl,  MAC_LAYER_OIJI_STREAM), 

} 

break; 

case  OxcO;  /*  ppp  control  packet  -  either  LQR  or  monitoring  pkt*/ 

/*  Since  the  command  link  is  deemed  unjammable,  this  should  */ 

/*  only  be  for  LQR’s.  Simply  delete  them  ftw  now  until  a*/ 

/*  policy  is  determined  on  how  to  handle  the  LQR’s.*/ 
op..pk_nfd_get  (ppp_pkptr,  ‘*LQR_info”,  &stanisl; 
printf  (“LQR  received  at  cp  “); 
switch  (status) 

{ 

case  0.  printf  (“status  GOOD  trend  IXdWNNn’’); 
case  1 :  printf  (“status  GOOD  trend  UPvn”/; 
case  2:  printf  (“status  BAD  trend  DOWNNo”); 
case  3;  printf  (“status  BAD  trend  UP«’'); 

} 

op_pk..destroy  (ppp_pkpn  ); 
break; 

default; 

priori  (“ERROR:  packet  revd  at  cp:  neitho  data  nor  coutrohn  ’), 
break; 
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)  /*  end  switch  */ 

}  /*  end  if  (op_intrpt_type()=OPC_INTRFf_STRM)  */ 

/*  oUierwise,  generate  the  frame  ;12APR94  */ 
else 
{ 

/*  determine  the  length  of  the  packet  to  be  generated  */ 
pklen  =  op_dist_outcome  (len_dist_ptr); 

/*  determine  the  destination  */ 

/*  dont  allow  this  station’s  address  as  a  possible  outcome  */ 
genjjacket: 

dest_addr  =  op_dist_outcome  (dest_disi _ptr); 
if  (dest_addr  !=  -1  &&  dest^addr  “  station_addr) 
goto  gen_packet; 

/*  26DEC94  &  29JAJ')94:  detertnine  its  priority  */ 
pkt.4)rio  =  op_dist_  outcome  (pkt_priority  _ptr); 

/*  create  a  packet  to  send  to  mac  */ 
pkptr  op_pk  .creatc_fmt  (“fddi_llc_&”); 

/'  assign  its  overall  size.  */ 
op_  ’c_total._size_set  (pkptr,  pklen); 

/*  assign  the  time  of  creation  ♦/ 

op  _pk_nfd„set  (pkptr,  “CT_tirae”.  op..sim_time  ()); 

place  the  destination  address  into  the  ICI  */ 

(the  protocol,  type  field  will  default)  */ 
op_ici_attr_  set  (mac_icipir,  “dest_addr”,  dest_addr); 

/*  place  the  source  address  into  the  iCI  *//*  r7APR94*/ 
op_,ici_anr_set  (maejeiptr,  “src_adclr”,  station^addr); 

/*■  assign  the  priority,  and  requested  token  class  */ 

I*  also  assign  the  service  class;  29JAN94;  the  fddi_llc_fr  */ 

/*  forma;  ?s  modified  to  include  a  “pri”  field.  */ 
if  (op_dist_unifonn  ( 1 .0)  <=  as>'nc_,mix) 

{ 

op„pk_nfd.,set  (pkptr,  “pri”,  pkt_prio),  /*  29JAN94  */ 
op.jci_am_set  (raac_icipir,  “svc_class”.  FDDi„SVC_ASYNC); 
op Jci_aitr_set  (maejeipu,  “pri”.  pktjjrio);  /*  29JAN94  */ 

} 
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else{ 

op_pk_nfd_set  (pkptr,  “pri".  8);  /*  29JAN94  */ 
op_ici_anr_set  (mac_iciptr,  “svc.dass”,  FDDI_SVC_SYNC), 
op_ici_aor_set  (maOciptr,  “pri”,  8);  /*  29JAN94  */ 

} 

/*  Request  only  nonrestricted  tokens  after  transmission  */ 
op_ici_attr_set  (macjciptr,  “tk_class”,  FDDI_TK_NONRESTRICTED); 

/*  Having  determined  priority,  assign  it;  26DEC93  */ 

/*  op Jci_attr_set  (macjciptr,  “pri”,  pktjprio);  */ 

/*  send  the  packet  coupled  with  the  ICI  */ 
opjcijnstall  (macjciptr); 

/*  check  if  destination  address  is  in  the  remote  Ian  */ 
if(dest_addr  >  9) 

/*  if  it  is.  this  packet  is  to  send  llc_sink  directly  */ 

op_j)k  .send  (pkptr,  LLC_SINK_OUT_STREAM);  /*18APR94*/ 

else 

/*  if  not,  the  packet  is  destined  for  local  Ian,  so  send  to  mac  */ 
op_pk_send  (pkptr,  MAC_LAYER_OUT..S'IRFAM); 

/*  schedule  the  next  arrival  */ 
fddi_gen_schedule  (); 

}  /*  end  else  (if  opcJntip_type()=«OPCJNTRPT_STR^4)  */ 

} 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM..EXIT  (3,cp_fddi_gen) 


/**  state  (ARRfVAL)  exit  executives  **/ 

FSM_STATE_EXIT_UNFORCED  (1,  state  l_exit_exec,  “ARRIVAL”) 

} 


/**  state  (ARRIVAL)  transition  processing  **/ 
FSM_.TRANSn_FORCE  (1,  statel_emer_exec, ;) 
/* - */ 
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} 


FSM_EX![T  (0,cp_fddi_gen) 

} 


void 

qp_fddi_gen_svar  (]5rs_ptr,var_narae,var_p_ptr) 
cp_fddi_gen_siate*prsj)tr; 
char  *var_iiaine,  **var_p_ptr; 

{ 

FIN  (cp_tddi_g{:a_svar  vps?  _ptr)) 

*var_p_ptr  =  VOS_NIL; 

if  (Vos_Strin.g_.liqual  C‘inter_distjptr’  .  var.uame)) 

*var_p_ptr  =  (char  *)  (&pr$_ptr->svjnter_dist_ptr); 
if  (Vos_Striu«L.EquaI  (“len_dist_ptr”  ,  var_oanie)) 

Vii(..p_p‘u  =  (char  *)  (ocprs_ptr->sv_len_dist_ptT); 
if  (Vos_Stting_Fxjiial  (“dest..dist_ptr” ,  var...aame)) 

*var_p4)tr  =  (char  *)  (&pis_ptx->sv_dest_dist_pir); 
if  (Vos_String_Equal  (“pkt_priority_ptr” ,  var_Dame)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv  .pkt_priority_ph-); 
if  (Vos_String_Equal  (“mac_objid”  ,  var_n8Jiie)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv._mac_pbjid); 
if  (Vos_String_Equal  (“iny_i(J" ,  var_namp)) 

’^var_p_ptr  -  (char  *)  (&prsj3t;->$v_iny_id); 
if  (Vos_StriDg_,Equal  (“low_dest_addr” .  vai_naine)) 

*var_p_ptr  =  (char  *)  (&prs_ptT->sv_low_dcst_Bddi); 
if  (Vos_Striog_Equal  (“iugh_desi_addi” ,  var_naire)) 

*var_p4)tr  =  (char  •)  («prs_pcr->sv_higb_dest_addr); 
if  (Vos„String_Equal  ("sU!tion_add/'"  .  var^name)) 

’*‘var_p_ptr  =  (char  *)  (&pn_ptr->$v_itauon_addr); 

II  (Vos_S£iing_Equal  (“SiC_ad(lr'' .  var.oame)) 

*var_p_pii  =  (char  *)  (&pr5_pir->sv_src_addr); 
if  (\os_String_ Equal  (“iow_pkt_priority”  ,  var._naiiie)) 

*var_p.4)tr  =  (char  *)  (&prs_ptr-:>sv_low_pk,:_prioriry); 
if  (Vos_String_Equal  (“high_pi,t_priority’' ,  var^namc)) 

*var.p_ptr  =  (char  *)  (&prs_ptr->sv_high_pktjpriority); 
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if  (Vos_Striog_Equal  (“arrival_rate” .  var_name)) 

*var_p_pti  =  (char  *)  (&prs_ptr->sv_anival_rate); 
if  (Vos_Striog_Equal  (“mean jpkjen” .  var_name)) 

*var_p_ptr  =  (char  *)  («&prs_ptr->sv_mean_pk_lea); 
if  (Vbs_String„Equal  (“async_mix” ,  var_name)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv_async_rmx); 
ii  (Vos_String_Equal  (“mac._iciptr”  ,  var_riiame)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv_macjciptr); 
if  (Vos_String„Equal  (“macjciptrl” ,  var..nanie)) 

*varj)_ptr  =  (char  *)  (&prsj)tr->sv_mac_iciptrl): 
if  (Vos_String_Equal  ("llc_ici_ptr” ,  var_name)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv_llcjci jJtr); 
if  (Vos_String_Equal  (“pkptrl” ,  var_name)) 

*var_p_ptr  =  (char  *)  («&prs_ptr->sv4)kptrl); 


Four, 

} 


void 

cp.-fddi_gen_diag  () 

{ 


Packet 

*pkpir,  •ppp_pkptr; 

int 

pkien; 

int 

d(“5t_adrtr; 

int 

i,  restricted; 

int 

pktjprio: 

int 

ppp_pid_h,  ppp_pid_l 

im 

status; 

FIN  (cp_fddi_gen_diag  ()) 


FOLTI'. 

} 


void 

cp_fddi_gen_terminate  () 
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{ 


Packet 

*pkptr,  *ppp_pkptr; 

int 

pklen; 

int 

dest_addr; 

int 

i,  restriaed; 

int 

pktj)rio; 

int 

ppp_pid_h,  ppp_pid_l; 

int 

status; 

FIN  (q)_fddi_gen_tenninate  ()) 


Four, 

} 


Compcode 

cp_fddi_genjnit  (pr_state_pptr) 

cp.  fddi_gen_state*  *pr_staie_pptr; 

{ 

static  VosT_Cm_Obtypeobtype  =  OPC_NlL; 

FIN  (cp_fddi_gcn_mit  (pr_statejpptr)) 

if  (obtype  =  OPC_NIL) 

{ 

if  (Vos_Catmeni_Register  (“proc  state  vars  (cp_fddi_gen)”, 

sizeof  (cp_fddi_gen_state).  Vos_Nop,  Aobtype)  =  VOSC_FAILURE) 

FRET  (OPC_COMPCODE_FAILURE) 

} 

if  ((*pr_state_pptr  =  (cp_fddi_^en_staie*)  Vos_Cannem_Alioc  (obtype,  1))  =  OPC_- 

NIL) 

FRET  (OPC_COMPCODE_FAILURE) 

else 

{ 

(*pr_statc_pptr)->currem_  block  =  0; 

FRET  (OPC_COMPCODE_SUCCESS) 

} 

} 
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/*  static  added  2DEC93.  on  advice  from  MIL3  *! 
static 

fddi  _gen_schedule  () 

doubleinter_time; 

/*  obtain  an  inrerarrival  period  according  to  the  */ 

/*  prescribed  distribution  */ 

inter„time  =  op_dist_outcome  (inter_dist_ptr); 

/*  schedule  the  arrival  of  next  generated  packet  */ 
op_intrpt_schedule_self  (op_sim_time  ()  +  inter_time,  0); 
} 
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APPENDIX  B 


ERROR  ALLOCATION  PIPELINE  STAGE  CODE 

“cdLpt_error.ps.c” 


/*  cdl_pt_erTor.ps.c  */ 

/*  Customized  error  allocation  model  for  point-  to-point link  transceiver  pipe' 

)k  **  5^  .,:****-;:  It  ***  Ht  *****  )*e  ****%:*!  4- 4;  3«(  He  ♦♦ 


/*  Last  modilied ;  29MAR94. 4APR94.22APR94 ,20AUG94  *! 

y  *****  j(s  Jt!  K!  :(t  l(t  **  iH  **:(!*:(<****:>(:***  + 4!  *  ****** 

#include  <opnci  h> 

#include<ma  .ti> 


le  */ 


/  ’'2UAUG94  monitor  jamming  using  global  statistics  set  up  in  q)_fddi_sink*/ 
/*send  stats  c  it  only  on  links  with  id  <  COMMAND_LINK  (user  id  of  emd  link)*/ 
/*Ail  links  on  the  downward  path  should  be  monitored*/ 
extern  int  jammer_stats_icit; 
extern  Gshandle  link_gshandle[4]; 

/*  E>efine  a  convenient  maao  for  computing*/ 

/*factcnals  using  the  gamma  laqion.*/ 

#define  log.faacriaKnjlgaimna  ((double)  n  .0) 


void  cdl_pt_error(pKpir) 
Packet*  pkjnr: 


Objid  link_objid; 
nciuMii  pe,  r.p_accuni,p  exaa; 
double  log_j?l.log_p2, lop  a  angc; 
double  duty_cydc.  /*  3 1MAK94  */ 

dotthit  jaiij_ length,  jam.  ber.ir.!_l)ct  Jamlcn.  I>ci_,bcijamlcn;/*29MAR94*/ 
double  linie_stamp;  /*  time  >'ft  np  for  Uk  packet  nrrivmg  time  */ 
double  oflsct;/*  1APR94*/ 

int  iiivcn_,crro[T,  =  Ul*C_i'AJ  ,SE.  seg_sire,  num^srrs; 
int  ja;iii»ier_typc;/''  2CAPI<'W*/ 

/*int  thuanelJndex;*//*4AIV94  */ 

int  nserjd;  /*  20AUG94  - 1  •  id  ntimber  defined  in  network  nuxlel*/ 
im  COJv3vlAr^D_LINX  ^  L 
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/**  Compute  tts  number  of  errors  assigned  to  the  given  packet  **/ 
!**  based  on  its  lengtli  and  tlte  bit  error  probability.  **/ 

FIN  (cdl_pt_error  (pkptr)) 


/*Make  a  time  stamp  to  see  whether  the  packet  is  in  jamming  period  or  not  *! 
time_stamp  =  op_sim_time();  /*printf("time_stamp  =  %16. 12f\n",  time_starap);*/ 


/*  Obtain  object  id  ofpoint-to-point  link  carrying  transmission.  */ 
link_objid  -  op_td_get_int  (pkptr,  OPC_1’DA_PT_LINK_OBJlD); 

/*  Obtain  the  channel  index  for  the  particular  link  ♦/ 

/*  Determine  which  chaimel  the  packet  is  or  *//*30MAR+/ 

!*■  channeljndex  =  op_td_get_int  (pkptr.OPC_TDA_PT_CH_INDEX);*//*4APR94*/ 
/*  Obtain  the  bit-eiror  probability  of  the  channel. 

r  op_iraa_obj_  attr_gst(link_objid.  "b£r’’,&pe);  V/*ignore  this  attribute  3 1MAR94*/ 
/*  Obtain  the  extended  attributes  for  the  point-to-point  link  */ 

/■^  "i  tiese  atuibutes  are  appended  in  order  to  .simulate  jamming  features  */ 
r  2')MAR94  */ 


op_ima_obj_attr_get  (link_obJid,  "jamjengtl)",  &jamjength); 
op_ima_obj  ,aiir_get  (link_objid,  "jam„bci ' ,  &jam_bcf). 
op_ima_obj_  attr_gct  (link_objid, '  interval_bctjan:)_lcn",  &int_betjamlen); 
op_ima_obJ_attr_get  (link_obJid.  "ber_bctjani_lcn",  &bcr_beijam:5n); 


op Jma_obj_attr_get  (link.objid,  "in  jan._offset".  tV offset); 
opJma_obj_attr_get  (link_objid.  "jammer^type",  &jammer_typc;. 


op..ima_obj_anr_gci  (Jink_obJi(l,  "userid",&user_id;; 
I*  Obtain  the  length  of  tlie  packet.  V 
seg_size  =  op_pk_totaI_si/c_gct  (pkptr), 

/*  Determine  the  janitnc!  type  !nuse;26Al’R9'1  */ 

/*  Check  if  pulsed  jammer  is  in  use  */ 
if  (jammer^type  =  0) 


I*  Randomize  the  jamming  Jurationr,  •/ 

I*  These  durations  are  landorrjzed  with  uniform  distribution  */ 

/*  in  I  arige  [G,  duration!  User  sliould  be  aware  of  these  */ 

/*  attributes  specified  in  tlic  ciiviioiunent  file  They  are  max  values  V 
/*  for  those;  particular  dui  ations  */ 
j,<rn_length  =  op_dist.  unilorm(jam_Iength); 

111*,  .bCt_jUJIiicn  =  Cp_ui5l_iiiiifCirii(im_bci^tailic£l), 
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} 

/*  0th  Twise,  channel  swept  januner  is  in  use.  Jamming  durations  */ 

/*  should  not  be  randomized  to  keep  consecutive  pulses  in  order.  */ 

/*  Compute  duty  cycle  for  jamming  */ 
duty_cycle = jam_length + int_bet Jamlen; 

/*  Check  time  stamp  if  it  is  in  the  initial  jam  offset  period  */ 

/*  All  BER’s  are  uniformly  distributed  in  range  [0,  ber[,  so  that  */ 

/*  realistic  representation  is  provided;  User  should  be  aware  of  */ 

/*  these  attributes  specified  in  tne  environment  file.  They  are  max  values  */ 

/*  for  those  particular  bers*/ 
if  (time_starap  <  offset) 

{ 

pe  =  op_dist_unifonn(ber_  bet  Jamlen);  /*  the  packet  is  still  not  in  the  jamming  period  */ 

if  ((jammer_staLs_imt=OPC_TRUE)&&  (user Jd  <  COMMAND_LINK)) 
op_stat_global_write  (link_gshandle[user_id],  pe); 

} 

else 

{ 

/*  Check  packet  is  in  jamming  period  */ 

if  ( fmod(time_stamp,duty_cycle)  <=  jamjength ) 

{ 

pe = op_dist_unifonn(jam_ber);  /*  the  packet  is  in  jamming  period,  */ 

/*  random  "pe"  to  be  computed  as  jam_ber  */ 

if  ((jammer_stats_init===OPC..TRUE)&&  (user,  id  <  COMMAND..LINK)) 
op_stai _global_wri,e  (link_gshaiidieluscrjd],  pe); 

} 

else 

pe  =  op_dist_unifonn(ber_bet  jamlen);  /*  packet  is  in  unjammed  period  V 
I*  random  "pe"  to  be  computed  as  ber_bet  Jamlen  */ 
if  ((jammer_statsJnit~OK;_TRUE)&&  (uscr_id  <  COMMAND_LINK)) 
op_stat  _global_write  (link  _gshandle[userjd],pe); 

) 

I 


'*1  i  5art  computes  num_errs  for  the  packet  */ 

( .h  ,c  1 ;  if  'lit.  bit  error  rate  is  zero,  so  is  the  number  of  ci  if  ■  =  '  > 
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if  ».pe  ==  0,0  II  seg_size = 0) 
num_errs  =  0; 

/*  Case  2;  if  the  bit  error  rate  is  1.0,  then  all  the  bits  are  in  error.*/ 

/*  (note  however,  that  bit  error  rates  should  not  normally  exceed  0.5).*/ 
elscif(pe>=  1.0) 

num_errs  =  sc?  _size; 

/*  Case  3:  The  bit  error  rate  is  not  zero  or  one.  */ 
else 

{ 

/*  If  the  bit  error  rate  is  greater  than  0.5  and  less  than  1.0,  invert*/ 

/*  the  problem  to  find  instead  tiie  number  of  bits  that  are  not  in  error*/ 

/*  in  order  to  accelerate  the  performance  of  the  algorithm.  Set  a  flag*/ 

/*  to  indicate  that  the  result  will  then  have  to  be  inverted.*/ 
if  (pe  >  0.5) 

pe=  1.0-pe; 

invert_eviors  =  OPC_TRUE; 

} 

/*  The  error  coum  can  be  obtained  by  mapping  a  uniform  random  number  */ 
/*  in  [0, 1  [  via  the  inverse  of  the  cumulative  mass  function  (CMF)  */ 

/*  for  tile  bit  error  count  distributiou.  */ 

/*  Obtain  a  uniform  random  number  in  [0, 1  ( to  represent  */ 

/*  the  value  of  the  CDF  at  the  outcome  that  will  be  produced .  */ 
r  =  op_dist._unifonn  ( 1 ,0): 

/*  Integrate  probability  mass  over  possible  outcomes  until  r  is  exceeded.  */ 

/*  The  loop  iteratively  corresponds  to  "inverting"  the  CMF  siuce  it  fiads*/ 

/*  the  bil  error  count  at  which  the  CMF  first  meets  or  exceeds  the  value  r.*/ 
for  (p,_accum  -  0.0,  nuni_errs  :=  0;  aum_errs  <=  seg_sizc;  num_eiTS-r-r) 

I 

/*  Compute  the  probability  of  exactly  ’num.errs’  bit  errors  occurring.*/ 
/*  The  probability  that  the  first  ’num_cnrs  ’  bits  will  be  in  error  */ 

/*  is  given  by  pow  (pe.  nuin_tfrs).  Here  it  is  obtained  in  logarithmic*/ 

/*  form  to  avoid  underflow  for  small  'pe'  or  large  ’num_errs  Jam’.*/ 
log_pl  =  (double)  num.crrs  *  log  (pe); 

/*  Similarly,  obtain  the  probability  that  the  remaining  bits  will  not  */ 

/*  be  in  error.  The  combination  of  these  two  events  represents  one  */ 

/*  possible  configuration  of  bits  yielding  a  total  of  ’num._eirs  ’  errors.  */ 
10g_p2  =  (double)  (a  "-^SiZc  -  ulLUi_ci  i  S)  ^  log  (1.0-  pc); 


77 


/*  Compute  the  number  of  arrangements  that  are  possible  with  the  same  ’^/ 

/*  number  of  bits  in  error  as  the  particular  case  above.  Again  obtain  */ 

/♦  this  number  in  logarithmic  form  (to  avoid  overflow  in  this  case).*/ 

/*  This  result  is  expressed  as  the  Jogarithmic  form  of  the  formula  for*/ 

/*  the  number  Nofcombinationsofk  items  from  n;  N  =  n!/(n-k)!k! 
log_arracge = log_faaorial  (seg_size)  - 
log_factorial  (num_errs)  - 
log_factorial  (seg_size  -  num_eiTs); 

/*  Compure  the  probability  that  exactly  ’num_errs’  are  present  */ 

/*  in  the  segment  of  bits,  in  any  arrangement.*/ 

P_exact  -  exp  (log_atTange  +  log_p  1  +  log_p2); 

/"  Add  this  to  the  probability  mass  accumulated  so  far  for  previously  */ 
r  tested  outcomes  to  obtain  the  value  of  the  CMF  at  outcome  =  num_errs.  */ 
p_accum  +=  p_exaa; 

/*  ’num,_errs  jam’  is  the  outcome  for  this  trial  if  the  C>/IF  meets  or  exceeds  */ 
/*  the  uniform  random  value  seleaed  earlier.  */ 
if  (p_accum  >=  r) 
break; 

} 

/*  If  the  bit  error  rate  was  inverted  to  compute  co;  rect  bits  instead,  tiien  */ 

/*  reinvert  the  result  to  obtain  the  number  of  bits  in  error.  */ 
if  (invert_errors  —  OPC_TRUE) 
num_errs  =  seg_size  -  num_srrs; 

) 

/*printf("num_of_errors  -•  %5d\n",  num_errs);*/ 

/*  Set  number  of  bit  errors  in  packet  transmission  data  attribute.  */ 
op_td_set_int  (pkptr,  OPC_TDA_PT_NUM_ERRORS,  nuiL_errs); 

Four 

) 
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APPENDIX  C 


RING  0  LLC^SINK  MODULE  CODE 
“cp^fddLsink.pr.c” 


/*  Process  model  C  form  file;  cp_fddi_sink.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  *! 
#include  <opnet.h> 

#include  “cp_fddi_sink.pr.h” 
FSM_EXT_DECS 


/*  Header  block  */ 

/*  Globals  *! 

/*  array  format  installed  20JAN54;  positions  0-7  represent  the  asynch  priority  levels,  PRIORITIES 

+  1  */ 

/*  represents  synch  traffic,  and  grand  totals  are  as  given  in  the  original,  */ 

#define  PRIORITIES  8  /*  20JAN94  */ 

#define  XM1TTER_ONEO  /*  10MAY94*/ 

#define  XMITTER.TWOl 

#define  XMrTTER_THRfiE2 

#define  XMITTER.FOURS 


static  /*  05FEB94  */ 

double  fddi_sink_accum_delay  =  0.0; 

static  /*  05FEB94  */ 

double  fddi_sink_accjm„delay_arPRIORITIES  1]  =  {0.0,  0.0,  0.0, 0.0, 0.0, 0.0, 0.0, 

0.0,  0.0); 


stauc  /*  05FEB94  *! 
int  fddi_sink_total_pkts  =  0; 
static  /*  05FEB94  */ 

int  fddi_sink_total_pkts_a[PRIORITIES  •+  1]  =  jO.  0.  0.  0, 0,  0,  0,  0, 0); 

static  /*  05FEB94  */ 

double  fddi_sink_total_bits  =  0.0; 

static  /■*'  05FEB94  */ 

double  fddi  sink_total_hits_a[PR!OPJT!ES  1]  =  {0.0,  0.0,  0.0,  0.0,  0.0 


n  Ct  r\  r\  a  a 
v.v,  w.u, 


79 


0.0}; 

static  /*  05P’EB94  */ 

double  fddi_siriik_peak_delay  =  0.0; 

static  /*  05FEB94  */ 

double  fddi_sink_peak_delay_a[PRIORITIES  +  2]  =  {0.0, 0.0, 0.0, 0.0, 0.0, 0.0,  0.0, 0,0, 

0.0}; 

static  /*  05FEB94  */ 

int  fddi_siiik_scalar_write  =  0; 

static  /*  05FEB94  */ 

int  pri_set  =  20;  /*  20JAN94  */ 

static 

int  subqjndex  =  0;  /*  5APR94  */ 

static 

double  buffer[4]={0.0,0.0,0.0,0.0};  /*10MAY94-^/ 


/*  siatistics  used  for  CDL  throughput  */ 
static/*  20APR94*/ 
int  fddilpl_total_pkts  =  0; 
static 

int  fddilpl_total_pkts_a[PRIORmES  +  1]  =  |0, 0, 0, 0, 0,  0. 0, 0,  0}; 

static 

double  fddilpl_total_bits  =  0.0; 
static 

double  fddUpl_total_biti,_a[PRIORI'nES  +  1]  =  (0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0}; 

/*  Externally  defined  globals.  */ 
extern  doublefddi_.t_opr  []; 

/*12JAN94:attributes  from  the  Environment  file  */ 
double  Offered_Load;  /*  12IAN94  */ 
double  Asynch_Ofifered_Load;  /*  12JAN94  */ 

/*  transition  expressions  */ 

#define  RND_OF_SIM  op_intip:._type()  =  OPCJbTTRPT.ENDSIM 

/*  get  picture  of  jamming,  this  vririable  allows  anyone  who*/ 

/*  is  writing  to  the  global  statistic  to  ensure  it  has  •/ 

/*  been  initialized.  20AUG94*/ 

int  jammer_stats_iDit=OPC_F;^ESE. 

Gshandle  link_gshandle[4}; 


/*  State  variable  definitions  */ 
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typedef  struct 

{ 

FSM_SYS_STATE 
Gshandle  sv_thni_gshandle; 

Gshandle  sv_m_delay_gshandle; 
Gshandle  sv_ete_delay_gshandle; 
Gshandle  sv_thru_gshand  ,;_a[10]; 
Gshandle  sv_m_delay_gshandle„af  10]; 
Gshandle  sv_ete_delay_gshandle_a[9]; 
Gshandle  sv_t_gshandle: 

Gshandle  sv_t_gshandle_a[10]; 

Objid  sv_my_id; 

int  sv_PPP_seq_number; 

double  sv_time; 

}  cp_fddi_siiik_state; 


#define  pr_state_ptr 
#define  thru  gshandle 
#define  m_delay_gshandle 
#define  ete_delay_gshandle 
#define  timi_gshan{jle_a 
#define  m._delay_gshandle_i 
#define  ete_delay_  gshandle 
#define  t_gshandic 
#define  t_gshandle_a 
#define  niy_id 
#define  PPP_se<}_nuinber 
^define  time 


((cp_fddi_sink_state*)  SimI_Mod_State_Pti) 
pr_state_ptr->sv_duru_gshandle 
pr_state_ptr->sv_m_delay_gshandle 
pr_state_ptr->sv_ete_delay_gshandle 
pr_state_pa->sv_thru_gshandle_a 
a  pr_state_ptr->sv_in_delay_gshandle_a 
Lapr_siate_ptr->sv_ete_dd.ay_gshandle_a 
pr_state_ptr->sv_t_gshandle 
pr_state_ptr->sv_t _gshandle_a 
pr_state_ptr->sv_myjd 
pr_state_ptr->sv_PPP_seq_number 
pr_statejitr->sv_time 


/*  Process  model  intcrrjpi  handling  procedure  */ 


void 

cp_fddi_sink  (1 

double  delay,  CTeat_time; 
Packet*  pkptr; 

Packet*  plitrl  ;  /*5APR94*/ 
Packet*  ppp.j)kpa-;/*  1 5JrUN94*/ 
int  src^addr,  njy_addr; 

int  dest_addr;/*14APR94*/ 

Ici*  from_mac_id_ptr; 
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int  xniit_subqJnidex;,/*'jAFR94*/ 

ini  Ioad_bal£uice_cxKle;  /*6APR?M*/ 

int  i,'iubq_no;  /*25APR94*/ 

int  index;  10MAY9-4 

double  link_mor_trans_rare;  /''‘15.TL1N94’''/ 
chat  sti0[512],  strl  [5121;  /*  for  diagnostics*/ 

iat  nion_pkt_size;  /*26JUL*/ 

double  sim_duration;  /*26JUL,*/ 


FSM.EI'TfER  (cp_fddi„sirik) 

F3M_BI/X:K..,SWTrCH 

{ 

. . . . . . . . . . . „s=/ 

/**  State  (HISCARD)  enter  executives.  **/ 

FSM..S7An^._ENTER_UNFGRCED  (0,  s;atcO_enter_exec.  “DISCARD”) 
1 

/*  detenaiDe  type  of  interrapt:10MAY94  */ 
switch  (op.  jnapt_type()) 

{ 

case  OrC_INTRPl_SlA7; 

/*  the  interrupt  is  caused  by  the  trajasaiitters’  status  */ 

{ 

index  -  op.  si3hipt,.stat(  ); 
switch(iudex) 


cast  X>/IDTER..ONE; 


bulierfO]  -v.  op_stat_local_read(XMlI'i'fik_ONE); 
break; 

} 

case  XMrTTER„l’WO: 

{ 

buffer!  1]  =  op..stat_iocal,.read(XMi'l  i  tiR_TWO); 
break; 

} 

case  XMnTER_THREE . 

1 

buffer  [2]  =  op_stat_local_read(XMii'lER_THREE); 
break, 

} 

case  XMnTER_FOUR: 

{ 

buffer[3]  =  op_statJocal_iead{XMnTER_FOUR); 
break; 

} 
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default; 

op_siin_e.nd(“***  FDDI-CDL  :  FATAL  ERROR”.”Unexpected  stat 
interrupt”,””,””); 

} 

} 

break; 

} 

case  OPCJNTRPT_STRM: 
the  interrupt  is  caused  by  the  incoming  packets  */ 

{ 

/*  get  the  packet  and  the  interface  control  info  */ 
pkptr  =  op  _pk_get  (op_intrpt_strm  ()); 
from_mac_ici_ptr  =  op_intrpt_ici  (); 

/*  20JAN94;  get  the  packet’s  priority  level,  which  */ 

/*  will  be  used  to  index  arrays  of  thruput  and  delay  */ 

/*  computations.  */ 

/*  pri_set  =  op_pk_jjriority_get  (pkptr);  doesn’t  work  here  *! 
op_4)k  _nfd_get  (pkptr,  “pri”,  &pri_sel);  /*  29JAN94  */ 

/’•'  determine  the  time  of  aeation  of  the  packet  */ 
op_pk_nfd_get  (pkptr,  “cr_time”,  &creat_time); 

/*  18APR94:determine  the  destination  address  of  the  packet  */ 
op.j)k_nfd_get  (pkptr,  ”dest_addr”,  &dest_addr); 

/*  20APR94:determine  the  source  address  of  the  packet  */ 
op_pk_nfd_get  (pkptr,  ‘‘src_addr”.  &src_addr); 

/*  7APR94;  determine  which  load  balancing  algorithm  is  in  use  *! 
op_ima_obj_attr_get  ( my_id,  “toad  balancing  algorithm”,  &load_balance„code ); 

/*  14APR94  :  also  get  my  own  address  *! 
op_ima_obj_attr_get  (  my_iu,  “station_address”,  &my_adcir); 

/*  destroy  the  packet  */ 

/*  op_pk_desn-oy  (pkptr);  */ 

/*  03FEB94;  rather,  enqueue  the  packet.  This  will  be  the  */ 

/*  first  step  toward  developing  a  LAN  bridging  snucture.  *! 
i*  -Nix  V 

/*  op_subq_pk_insert  (pri_set.  pkptr,  OPC_QPOS_TAIL);  */ 

/*  14APR94:  check  the  frame  passed  to  “11c”  ts  destined  for  */ 

/*  this  station.  If  it  is  destroy  the  packet  and  update  the  local  traffic  *! 

/*  statistics;  if  not,  allocate  the  packets  */ 

/*  to  the  transmitters  since  they  are  destined  ft«  the  remote  Ian  */ 
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/*  update  also  incoming  return  link  statistics  for  the  fi  ames  */ 

/*  which  will  be  queued  in  llc_sink  to  be  sent  to  remote  Ian,*/ 

/*  -Karayakaylar  */ 

if((dest_addr  ==  my_addr)&4&(src_addr  <  my_addi)) 

{ 

/*  add  in  its  size  */ 

fddi_sink_total_bits  +-  op„pk_total_size_get  (pkptr); 

fddi_sink_toial_bits_aIpri_sei]  +=  op_pk_total_si2e_get  (pkpir);  /*  20Ji4Js^-20APR94  */ 

/*  accumulate  delays  */ 

delay  =  op_sim_time  ()  -  creat_time; 

fddi_sink_accum_delay  +=  delay; 

fddi_sink_accum_dday_a[pri_set]  +=  delay;  /*  20JAN-20APR94  */ 

r  keep  track  of  peak  delay  value  */ 
if  (delay  >  fddi_sink_peak_delay) 
fddi_sink_peak_delay  =  delay; 

/*  20JAN94;  keep  track  by  priority  levels  as  well  23JAN-20<^PI?.94 
if  (delay  >  fddi_sink_peak_delay_a[pri_set]) 
fddi_sink_peak_delay_a[pri_set]  =  delay; 

op_pk_destroy  (pkptr); 


/*  inaemeni  packet  counter;  20JAN94  */ 
fddi_sink_total_pkts-H-; 
fddi_sink_total _pkts_a[pri_set]++; 

/*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

/*  03FEB94;  [0,l->[7]  represent  asynch  priorities  l->8,  */ 
/*  respectively;  [8]  represents  synchronous  traffic.  •/ 

/*  and  [9]  represents  overall  asynchronous  tra£Qc.-NU  */ 
/*if  (fddi_sink_total_pkts  %  25  =  0) 

op_stat _global_write  (thru_gshandle. 

fddi_sink_totaJ_bits  /  op_sim_ume  ()); 


op_stat _global_writc  (thru_gshandlc_alpri_sct]. 
fddi_sink_total_bits_a[0]  /  op_sim_umc()); 

op_stat _global_write  (thru_gshandle,aIO]. 
fddi_sin]c_total_bits_a[l]  /  op_sin:_timc()); 

op_stat  _global_write  (thru_gshandle_a[l]. 
fc!di_sink_tota]_bits_a[pri_setl  /  op_siin_time()); 

op_stat _global_write  (fhru_gshandle_a[2]. 
fddLsink_tot8l_bits_a[2]  /  op_sim_time()); 
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fddi  _sink_total_bits_a[3]  /  op_sim_Ume()); 

op_stat_global..  liVrite  (tiiru_gsliand.le_a[4], 
fddi_sink_total_tits..  a[4]  /  op_sim_uine()); 

op_stat _gIobal_write  (thru_gshandle_a[5], 
fddi_sink_total_bits_a[5]  /  op_siin_time()): 

op_siat _globcl_write  (tliru_gshandle_a[6]. 
fddi_.sink„total_bits_a[6]  /  op_sim_time()); 

op._stat _global_write  (thru_gsiiandle_a[7]. 
fddLsink_.total_bits_a[7]  /  op_sim_time()); 

op._stat _global_write  (thru_gshandle_a[8], 
fddi_  sink„total_bits„a[8j  /  op_sim_time()); 

*/ 

/*  30JAN94:  gather  all  asyiich  s.tats  into  one  overall  figure  */ 
/*op_,stat_global_write  (tlmi^shaiidle_a[9] . 
(fddi_sink_totaLbits  -  fddi_sink_total_bits  _a[8])  / 
op_sim_time()); 

*/ 

/*  (fddi_sink_total_bits_a[0]  +  fddi_sink_total_bits.a[lj  +  */ 

/*  fddi_sink_tota]_bifc>_a[21  +  fddi_sink_total_bits_a[3]  +  */ 

/*  fddLsink_total_bits_a[4]  +  fddi_sink_to£al_bits_at5]  +  */ 

P  fddi_siiik_total_bits_a[6]  +  fddi_sink_total_bits_a[7])  /  */ 

/*  op_sim_time());  */ 


/* 

op_stat_global_write  (m_delay_gshandle, 

fddi_sink_accum_delay  /  fddi_sink_total_plcts); 

op_stat _global_write  (m_delay_gshandle_aiO]. 
fddLsink_accum_dday_a[0]  /  fddi_sink_total_plcts_a[01) 
op_stat _global_write  (ni_delay_gshandle_a[l]. 
fddi_sink_accum_delay_a[l]  /  fddi_sink_total_pkts_a[l]) 
op_siat _glooal_wriie  (in_delay_gshaiidle_a[2], 
fddi_sink_accum_delay_a[2]  /  fddi_sink_toial_pkts_a[2]) 
op_stat  _global_write  (in_delay_gshandle_a[3], 
iddi_sink_accuai_delay_a[3]  /  fddi_sink_total4)lcts_a[3]) 
op_stat _global_write  (m_delay_gshandle_a[4], 
fddi_sink_accuin_dday_a[4]  /  fddi_sink_iota.l_pkts_a[4]) 
op_stat_global_write(m_dday_gsbandlc_a[5J. 
fddi_sink_accuin_dday..a(5J  /  fddi_sink_ioial_plas_a[5)) 
op_stat.^obal_write(in_delay_gshandle_af6]. 
fddi_siiik_accuin_dday_a[6]  /  fddi_sink_iotaJ_pkis_aI6]) 
op_stat_global_write  (midday.  g'haiKHe_^a[7], 
fddi_sink_accum_dday„a[7]  /  fddi_siDk_tDtal_pkts_a[7]) 
op_stat _global_write  (m_dday_gsbandle_a[8], 
fddi  sink_aocuiii_dday_a[8]  /  fddi_sink  t(KaJ  pkis_a[8]) 
*! 
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/*  30JAN94:  gather  all  asynch  stats  into  one  figure  */ 
/*op_stat_global_write  (m_delay_gshandle_a[9] , 
(fddi_sink_accum_delay  -  fddi_sink_accuin_delay_a[8])  / 
(fddi_sink_totalj)kts  -  fddi_sink_total_pkts_aI8])); 

*! 

/*  (fddi_sink_accum_delay_a[0]  +fddi_sink_accum_delay_a[l]  +  */ 
/*  fddLsink_accuni_delay_a[2]  +  fddt_sink_accum_delay_a[3]  +  */ 
/*  fddLsink_accum_delay_a[4]  +  fddi_sink_accum_delay_a[5]  +  */ 
/*  fddi.  sink_accum_delay_a[6]  -4-  fddi_sink_accuin_delay_a[7])  /  */ 
/*  (fddi_sink_total_pkts_a[0]  +  fddi_sink_total_j)kts_a[l]  +  */ 

/*  fddLsink_total_pkts_a[2]  +  fddi_sink_toul_pkts_at3]  +  */ 

/*  fddLsink_total_pkts_a[4]  +  fddi_sink_total_pkts_a[5]  +  */ 

/*  fddLsink_total_pkts_a[6]  +fddi_sink_total_picts_a[7]));  */ 


/*  also  record  actual  delay  values  */ 

/*op_stat_global_write  (eie_delay_gshandle,  delay); 
op_stat_global_vmte  (ete_delay_gshandle_alpri_set],  delay), 

} 

*/ 

}  /*  end  of  if(dest_addr  —  my_addr)&&(src_addr  <  my_addr)  statement  */ 

/*  20APR94:destroy  the  packets  coming  from  the  remote  Ian  destined  for  this*/ 
I*  station.  Tltese  packets  are  not  counted  for  local  traffic.*/ 

/♦else  */if(dest_addr  =  my_addr) 
op._pk_destroy(pkptr); 

/*  20APR94:  check  the  firame  passed  to  “11c”  is  destined  for  remote  Ian  */ 

/*  This  will  allow  only  the  packets  to  be  counted  lor  CDL  traffic.*/ 

/*  -Karayakaylar  */ 
else 


/*  add  in  its  size  */ 

fddilpl_total_bits  +=  op_pk_total_size_get  (pkptr); 
fddilpl_total_bits_a[pri_set]  +=  op_pk_total_size _get  (pkptr);  /*  20APR94  •/ 

/*  increment  packet  counter;  20APR94  */ 

fddilp  1  _total_pkts-H-; 

fddilp  1  _toial_4)kis_a[pri_set]++; 

/*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

/*  [0]->[7]  represent  asynch  priorities  l->8.  */ 

/*  respeaively;  [8]  represents  synchronous  traffic,  */ 
onH  rpi  ovcfsU  ES'^nchronous  trflffic,~Nix  */ 
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/*if  (fddilpl^totaljikts  %  25  ==  0) 

{ 

op_stat _giobal_write  (t_gshandle, 

fddUpl_total_bits  /  op_sim_time  ()); 

op_stat _global_wTite  (t_gshandle_a[pri_set]. 
fddilpl_total_bits_a[0]  /  op_sim_time()); 

op_stat_global_write  (t_5Shandle_a[0], 
fddilpl_total_bits_a[l]  /  op_sim_time()); 

op_stat_global_write  (t_gshandie_a[l]. 
fddilpl_total_bits„a[pri_set]  /  op_sim_time()): 

op_stat _global_write  (t_gshandle_a[2], 
fddilpl_total_bits_a[2]  /  op_sim_time()); 

op_stat_globaI_write  (t_gshandle_a[3], 
fddiJpl_total_bits_a[33  /  op_sim_time()); 

op_stat _global_write  (t_gshaudle_a[4]. 
fddilpl_iotal_bits_a[4]  /  op_sini_tinie()); 

op_stat_global_write  (t_gshandle_a[5], 
fddLlpl_total_bits_a[5]  /  op_sim_time()); 

op_.stat_£lobal_write  (t_5shandie_a[6]. 
fddilpl_total_bits_  a[6]  /  op_sini_time()); 

op_staf_global_write  (t_gshandle_a[7], 
fddUpl_total_bits_a(7]  /  op_sini_time()); 

op._siai_global_wri  te  (i_gshand  le_a  [  8  j . 
fddilpl_total_bits_a[8] /op  sim  limeO); 

♦/ 

/*  gather  all  asynch  stats  into  one  overall  figure  */ 
/*op_stat_global_write  (t_gshandle_  a[9] . 
(fddilpl_total_bits  -  fddupl_total_bits_a[8])/ 
op_siin_time()); 

*/ 

/*  (fddilpl_tofal_bits_a[0]  +  fddilpl_total_bits_a[l]  +  */ 
/*  fddLlpl_tot3Lbits_a[2]  +  fddiip!_iotal_bits_3[3]  +  */ 
/*  fddUpl_total„bits_al4]  +  fddUpLtotal_bits_a[5J  +  *! 
/*  fddilpl_total_bits_a[6]  +  fddUpI_total_bits_a(7])/  */ 
/*  op._sim_time());  */ 

/*)*/ 


/*15JUN94  :  before  allocating,  encapsulate  the  FDDI  frame  into  a  PPP  packet  */ 
ppp_pkptr  =  op_pk_CTeate_fmi  (■'ppp_inl’’); 
op_pk_nfd_sct  (ppp_pkptr.  “seq_number”.  PPP_seq_number-H-); 
op_pk_nfd_set  (ppp4)kptr,  “FX)DI_fi-ame”,  pkp»r), 

!*  14APR94  :aUocate  the  packets  to  llc_sink  .subqiipjie-s  */ 
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/*  6APR94  -Karayakaylar  *'/ 

/*  check  if  load  balancing  algorithm  is  circular  */ 

/*  zero(O)  is  the  circular  load  balancing  code  */ 
if  (load_balance_code  =  0) 

{ 

I*  5APR94  V 

/*  Apply  load  balancing  to  insert  the  packets  in  the  */ 

/*  subqueues,  in  a  circular  order  */ 
subq_no  =  subq_iodex  %  4; 

op_sub<ij)k_insen(subq_no.  ppp_pkptr.  OPC_QPOS_TAIL);  /*15JUN  altered  to 

send  ppp*/ 

subq_index-H-; 

} 


/*  25APR94  *! 

/*  check  if  load  balancing  algorithm  is  empty  allocation  V 
/*  one(l)  is  the  empty  allocation  load  balancing  code  */ 
if  (load_balance  .code  ==  1 ) 

1 

/*  Apply  load  balancing  to  insert  the  packets  in  the  */ 

I*  subquates  by  choosing  the  subqueue  which  has  the  maximum  current  */ 

/*  number  of  free  packet  slots  ■*/ 

suba^no  a  op_subq_index_niap(OPC_QSEL_M\X_FR£E_PKSIZE); 
op_subqj)k_insert(subq_no.  ppp.pkptr,  OPcLqpOS  TAIL);  /*15JUN  altered  to 

send  ppp*/ 

} 

}/*if(dest_addr  >  my_addr;  statement  */ 
break; 

}/*  end  of  case  OPC_INTRFr_STRM  suiement  */ 
case  OPC_INTRPT_SELF;  /*27JUL94V 

/*  if  it  is  a  self-intemipt.  it  is  time  to  send  a  monitoring  packet.  Send  one.  */ 

I 

ppp_pkptr  =  op_pk_create_fmt("ppp”); 
op_pk_nfd_set  (ppp_pkptr.”pid_h".0xc0); 
op_pk_nfd_set  (ppp_pkptr.”pid  J”.0x2I ); 

op_ima_obj_attr_get  (my_id .'  monitoring  pkt  size".  &mon_pkt_size); 
op_pk_bulk_sizc_sct  (ppp_pkptr.  mon_pkt_sizc); 
if  (load_balancc_code  =  1) 

I 

siibq_no  =  op_subq..index_map(OPC_QSEL_MAX_FREE_PKSlZE); 
op_subq4)k_inscrt(subq_no.ppp_pkptr.OPC_QPOS_TAIL); 

} 

else  if  (load_balanoe_codc  ==  0) 
i 


subq_no  =  subq_index  %  4; 

op..subqjJk_insen  (subq_no.ppp_pltptr,OPC_QPOS_TAIL); 
subq_index-H-; 

} 

break; 

) 


)/*  end  of  switch  •/ 

/*  check  if  each  Mibqueuc  is  noc  cinpt>’  and  transnuner  is  not  busy  */ 

/*  inegardless  if  ai;  interrupt  is  received  or  not  1 ALIG94*/ 
for  (xmiLsubq_index  =  0;xmii_subq_indcx  <«3;  +4xmit_subq_iiidcx.) 

{ 

if  ((•op_sub(i_empiy(xniit_subq_indcx))&A(buffcrIxiiui_subq_indcx]  =  0.0)) 

{ 

/* access  the  first  packet  in  th:  subqueue  */ 

pkptrl  «  op_subq_pk.renKr.'C  (xmit_subq^iodcx,  OPC_QPOS_fIKAD), 

/*  forward  it  to  the  destiution  xtoiaer  */ 

/*  associaied  with  the  subqueue  index  */ 
op_pk_scad  (pkpul.  xinit_subq_iadex  >, 

/•if  (op..siin_debug(>=OPC_TRUE) 
phntf  (“psckc!  sent  to  cp  xtssr  fretn  subqueuc  ^-d^c  '.xsait.subq  iudex),’/ 

) 

I 

) 


/••  blocking  after  enter  executives  of  unforced  suie.  ••/ 
FSM_  EXIT  { i  .cp_fddi_siak) 


/••  state  (DISCARD)  exit  executives  ••/ 

FSM_STATE_EXIT_UNFOR(XD  (0.  siaieO_cxii_exec.  "DISCARD") 
1 
) 


/••  stairs  (DISCARD)  iransitjoo  processing  ••/ 
FSM_rNlT_CUND  (END_Of-_SIM) 
FSN;^DFLT_COND 
FSM_TEST_LC>G1C  ("DISCARD") 

FSM  TRANSn.SWrrCH 
( 

FSM_CASE_TRAN5rT  (0.  1 .  suie  Len«;r_cxec. ;) 
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FSM_CASE_'IKANSIT  (1,0,  statcO_entcr_cxcc, ;) 
} 

. V 


/**  stale  (STATS)  enter  executives  *</ 

FSM_STATE_ENTER_UNFORCED  (1,  state  l_enter_exec.  "STATS") 

{ 

(*  At  cod  of  simulation,  scalar  performance  statistics  */ 

!*  and  input  parameters  are  written  out  *! 

op_stat_scalar_ write  (‘RL  Tbroughput  (bps).  Priority  1", 
fddilpl_total_bits_a(0]  /  op_sim_time  0);  /•20APR94*/ 

op_sut_scalar_wriie  ("RL  Tbroughput  (bps).  Priority  2". 
fddilp  1  _ioul_bits_aI  I )  /  op_sim_time  ()); 

op_sut_scalar_ write  ("RL  Tbroughput  (bps).  Priority  3”. 
fddilp  l_toul_bits,a(2]  /  op_sini_tinw  ()). 

op_sut_5calar_wrilc  ("RL  Tbroughput  (bps).  Priority  4", 
fddilp  1  _toial_bits,.af3]  /  op.sim.tiiiie  ()); 

op_sut_scalar_ write  ("RL  Tbrouglqnit  (bps).  Priority  5", 
fddilp  1  _total_bits_al41  /op_sim„tiinc  ()): 

<:^_stat_scalar_writc  ("RL  Tbro'jghput  (bps),  ftiority  6”, 
fddilp  l_toial_bits,a(3]  /  op_sim_tiine  {)); 

op_stat..scalar_write  ( 'RL  Throughput  (bps).  Priority  7". 
fddilp  l_tota]_bits_a[6]  /  op_sini_time  ()); 

op_stai_scalar_write  (“RL  Throughput  {(^s).  Priority  8”. 
fddilp  1  _total_  bits_a[7]  /<^_sim_time  ()); 

op_stat_scalar_writc  (“RL  Throughput  (bps),  Asynchronous”, 
(fddilp  l_total_bits  -  fddilpl_total_bits_a(8J)/op_sim_tiii}e  ()); 


/*  (fddilp l_total_bil5_a[0]  +  fddilpl_total_bits_aIl)  + 

/•  fddilp  l_toial_biis_a[2]  +  fddilp  l_fotal_bits_a[3J  +  */ 
/*  fddilp l_total_'oits_a[4]  +  fddilp l„total_bits_a[5]  +  */ 
/*  fddilp l_total_bits_a[6]  +  fddilp  l_toial_bits_a[7])  /  */ 
/*  op_siiE_timr  ());  •/ 
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cp_stat_scalar_writJ  (“RL  lliroughput  (bp.'),  Synchronous”, 
fddilpl_total_biis_a<'8J  /  op_siin_time  ()); 

op_siat_scaJar_write  (“RL  Throughput  (bps;,  Total", 
fddilpl_totai_bits  /  op_sL'n_tinie  ());  /*20APR94*/ 


i*  Only  one  station  needs  to  do  this  */ 
if  (!fddi_sink_scalar_writc) 

1 

I*  set  the  scalar  write  flag 
fddi_sink_scalar_write  =  1; 

op_stat_scalar_write  ("Mean  End-to-End  Dclay-O  (sec.).  Priority  1”, 
fddi_sink_accuin_delay_a(0]  /  fddi_sink_totalj)tas_a[0]); 

op_stat_scalar_write  (“Mean  Eod-to-End  Delay-O  (sec.).  Priority  2”, 
fddLsink_accuni_dday_a[l)  /  fddi_sink_totai.j)lcts_a[l]); 

op_stat_scalar_write  (“Mean  End-to-End  Dclay-O  (sec.),  PriOTity  3". 
fddLsink_atniin_dclay_a[2]  /  fddi_sinic_total_p)lcts_a[21); 

op_stat_scalar_wTite  (“Mean  End-to-End  Delay-0  (sec.).  Priority  4”, 
fddi_sink„accum_delay_a[3J  /  fddi_sinlc_total_pkts_a[3]); 

op_stat_scalar_write  (“Mean  End-to-  End  Dclay-O  (sec.).  Priority  3", 
fddLsink_accum_delay_a[4]  /  fddi_sink_totalj)kts_a[4]); 

op_stat_scalar_writc  (“Mean  End-to-End  Dclay-O  (sec.).  Priority  6”, 
fddi_sink_accuni_dciay_a[5]  /  fddi_sink_toial_pkts_a[5]); 

op_stat_scalar_wri!e  (“Mean  End-to-End  Delay-0  (sec.).  Priority  7", 
fddLsink_accuin_delay_a[6]  /  fddi_sink_total_plrts_aI6]); 

op_stai_scalar_write  (“Mean  End-to-End  Delay-O  (sec.).  Priority  8”, 
fddi_sink_accxun_dclay_a[7]  /  fddi_sink_total_pkts_a[7]); 

op_stat_scalar_writc  (“Mean  End-to-End  Delay-O  (sec.).  Asynchronous”, 
(fddi_sink_accuiii_delay  -  fddi„sink_acCTi!n_deiay_a[8])  / 
(fddi._sink„total_pkts  -  fddi_sink_total4)kts_a[8])); 

/*  (fddi_sink_accum_delay_aIO]  -f  fddLsink_accum_delay_a[l]  -f  */ 

/*  fddi_sink_accum_delay_a[2]  -f  fddi_sink_acciini._delay_a[3]  +  */ 

/*  fddLsink_accuni_delay_a[4]  +  fddi_sink_accuni_delay_a[5]  -f  */ 

/*  fddi_sink_accum_dclay_a[6]  +  fddi_sink_accimi_delay„a[7])  /  */ 
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/*  (fddi_siEk_total_pkts_a[0]  +  fddi_sink_total_pkts_c!LlJ  +  */ 
/*  fddi._sink_total_pkts_a[2]  +  fddi_sink_total _pkts_a[3]  +  */ 
/*  fddL:.ink_total_pkts_al.4]  +  fddi_sink_tofal_pkts_a[5]  +  */ 
/*  fddLsink_total_pkts_a[6]  +  fddi_sink_.total_pkts_a[7]));  */ 


op_stat_scalar_write  (“Mean  End-to-End  Delay-0  (sec.).  Synchronous”, 
fddLsink_accum,.delay_a[8]  /  fddi_sink_total_pkts_a[8]); 

op_stat_scalar_write  (“Mean  End-to-End  Dday-G  (sec.),  Tbtal”, 
fddi_sink_accum_delay  /  fddi_sink_total4)kts); 

op_stat_sc2lar_write  (“Throughput-0  (bps).  Priority  1”, 
fdQi_siuk„total_bits_a[0]  /  op_sim_time  ()); 

op_stat_scalar_write  (“Throughput-0  (bps).  Priority  2”. 
fddi_sink_total_bits_a[l]  /  op_sim_iime  ()): 

op_stat_scalar_write  (“Throughput-0  (bps).  Priority  3”, 
fddi_sink_total_bits..a[2]  /  op_sim_time  ()); 

op_stat_scalar_wrife  (“Throughput-0  (bps).  Priority  4”, 
fddi_sink_total_bits_a[3]  /  op_sim_time  ()); 

op_stat_scalar_write  (“Throughput-0  (bps).  Priority  5”. 
fd(li_sink_total_bits_a[4]  /  op_sim_time  ()): 

op_stat_scalar_write  (“Throughput-0  (bps).  Priority  6”, 
fddi_sink_total_bits_a[5]  /  op_sim_ti,'ne  ()); 

op_stat_scalar_write  (“Throughput-0  (bps).  Priority  7’, 
fddi_sink_total_biis_a[6j  /  <^_siia_tinie  ()); 

op_sat_scaiar_write  niiroughput-O  (bps).  Priority  8”, 
fddi_sink_total_bits_a[7]  /  op_sim_time  ()); 

op_stat_scalar_WTitc  (“Throughpui-0  (bps).  Asynchronous”, 
(fddi_sink_total_bits  -  fddLsink_iotal_bits_ai8])  /  op_sini_umc  ()); 


/*  (fddi_sink_total_bits_a[01  +  fddi_sink._total„bits_a[l]  +  */ 
/*  fddi_sink_total_bits_a[21  fddi_sink_total_biu_aI3]  +  •/ 
/*  fddi_sink_total_bits_a[4]  +  fddi_sink_total_bits_a[5]  +  */ 
/*  fddi_sink_total_bits_a[6]  +  fdd:_sink_total_bits_a[7])  /  */ 
/*  q)_sim_time  ());  */ 
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op.  stat_scalar_write  (“Throughput-0  (bps).  Synchronous”, 
fdcli_sink_total_bits_a[8]  /  op_sim_time  ()); 

op_stat_scalar_write  (“Throughput-0  (bps).  Total”, 
fddi_sink_total_bits  /  op_sim_time  ()); 


op_stat_scalar_write  (“Peak  End-to-End  Dclay-0  (sec ),  Priority  1”, 
fddi_sink_peak_delay_a(0] ); 

op_stat_scalar_\vrite  ("Peak  End-to-End  Delay-O  (sec ),  Prioiity  2”. 
fddi_sink_p£ak_delay_a[  1  ] ); 

op_stai_scalar_write  (“Peak  End-to-End  Delay- 0  (sec.).  Priority  3 
fddi_sink_peak_dday_a[2]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay-0  (sec.).  Priority  4”, 
fddi_siii'i4)eak_delay_a[3]); 

op_stat_scalar..write  (“Peak  End-to-End  Dclay-O  (sec.).  Priority  5”. 
fddLsink_peak_delay_a[4]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay-0  (sec.),  Priwity  6”, 
fd<li_sinkj)cak_dday_at31); 

op_stat..scalar_ write  ("Peak  End-io  End  Dday-0  (sec.),  Prioiity  7”, 
fd<li_sink_pcak_dday_a[61); 

<^_stat_scalar_ write  (“Peak  End-to-End  Dday-0  (sec.).  Priority  8”, 
fddi_sink_peak_dday_a[7] ); 

op_stai_scalw_write  ("Peak  End-to-End  Dday-0  (sec.).  Synchronous”, 
fddi_sink_pcak_dday_ar8]); 

op_stat_scaiar_wriie  (“Peak  End-to-End  Dday-*'  jc.).  Overall”. 
fddi_siak_peak_dday); 


I*  Write  the  TTRT  value  for  ring  0.  This  preset . 

/*  the  old  behavior  for  single-ring  simulations.  / 
op_stat_scalor_writc  (“TTRT  (sec.)  -  Ring  0". 
fddi_t_opr  [0]); 

I*  12JAN94;  obtain  ofifaed  load  information  from  the  Environment  *! 
I*  file;  this  will  be  used  to  provide  abscissa  information  that  */ 

I*  can  be  plotted  in  the  Analysis  Editor  (see  “fddi.sink”  STATS  */ 
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/*  state.  To  the  user:  it’s  your  job  to  keep  these  current  in  */ 

/*  the  iinvironment  File.  -Nix  */ 

op_ima_sim_attr_get  (OPC_IMA_DOUBIJE.  ‘lotal_ofifered_load_0”,  &Ofiferecl_Loa(l); 
opJina_sim_attr_get  (OPC_IMA_DOUBLE,  “asynch_o£fered_load_.0”,  &Asynch_Of- 
fered_Load): 


I*  12JAN94:  write  the  total  offered  load  for  this  run  */ 
op_stat_scalar_wiite  (“Total  Offered  Load-0  (Mbps)”, 
Offered_Load); 

op_stai_scalar_write  (“Asynchronous  Offered  Load-0  (Mbps)”, 
Asynch_Offered_Load); 

} 

} 


!**  blocking  after  enter  executives  of  urfforced  state.  **! 
FSM_EXIT  (3,cp_fddi_sink) 


/**  state  (STATS)  exit  executives  **/ 

FSM_STATE_EXIT  UNFORCED  (1,  sustcl_e;at_excc.  “STATS") 

} 


/••  state  (STATS)  transition  processing  **/ 
FSM_TRANSrT_MISSING  (“STAG'S") 

/* - */ 


!**  state  (INTT)  enter  executives  **! 

FSM_STATE_ENTER_FORCED  (2.  statc2_enta  exec,  “INTT’) 

I 

/*  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 

/•  20JAN94:  set  array  format  */ 

/* 

thru_gshandlc_aIOj  =  op_stai_global_reg  (“pri  1  throughput-O  (bps)”); 
thfu_gshandle_a[l]  =  op_stai_global_  reg  (“pri  2  throughput-0  (bps)”); 
thru _gsban(Ue_a[2]  =  op_stat_global_rcg  (“pri  3  throughput-0  (bps)”); 
thru _gshandic_a[3j  -  op_stat _gIobaJ_rcg  (“pri  4  throughput-0  (bps)”); 
thru_gshandlc_a[4]  *  op_sut _global_reg  (“pri  5  Uiroughput-0  (bps)”); 
ihru^shan(llc._aI5]  =  op_stat_global_reg  (“pri  6  ihroughput-0  (bps)”); 
thn]_gshandlc_a[6]  =  op_stai_global_reg  (“pri  7  througbput-0  (bps)”); 
thru_gshandle_ar7]  =  <^_stot_global_rcg  ("pri  8  throughput-O  (l^)s)”); 
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thrd_gshandle_a[8]  =  op_stat.jJobal_reg  (“synch  throughput-0  (bps)”); 
thru_gshan(lle_a[9]  =  op_stat_global_reg  (“async  throughput-O  (bps)”); 
thru_gshandle  =  op_stat ^obal_reg  (“total  throughput-0  (bps)”); 

in_delay_gshan(lle_a[0]  =  op_stat _global_reg  (“pri  1  mean  delay-0  (sec.)”); 
m_delay_gsliandle_a[l]  =  op_stat _global_reg  (“pri  2  mean  delay-0  (sec.)”); 
ro_delay_gshandle_a[2]  =  op_stat_global_reg  (“pri  3  mean  delay-0  (sec.)”); 
m_delay_gshandle_.a[3]  =  op_stat _global_ieg  (“pri  4  mean  delay-0  (sec.)”); 
m_delay_gshandle_a[4]  =  op_stat_global_reg  ( ‘pri  5  mean  delay-0  (sec.)”); 
m_delay_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  mean  delay-0  (sec.)”); 
m_dela>^shandle_a[6]  =  op_stat_global_reg  (“pri  7  mean  delay-0  (sec.)”); 
ni._delay_gshandle_a[7]  =  op_stat_global_reg  (“pri  8  mean  delay-0  (sec.)”); 
m_delay_gshandle_a[8]  =  op_stat _global_reg  (“synch  mean  delay-0  (sec.)”); 
m_delay.^shandle_a[9]  =  op_stat_global_reg  (“async  mean  delay-0  (sec.)”); 
m_delay_gshandle  =  op_stat_global_reg  (“total  mean  delay-0  (sec.)”); 

ete_delay_gshandle_a[0]  =  op_stat _global_reg  (“pri  1  end-to-end  delay-0  (sec.)”); 
ete„delay_gshandle_a[l]  =  op_stat_giobal_reg  (“pri  2  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle_a[2]  =  op_stat_global_reg  (“pri  3  end-to-end  delay-0  (sec.)”); 
ete.  delay  _gshandle_a[3]  =  op_stat_global_reg  (“pri  4  end-to-end  delay-O  (sec.)”); 
ete_delay_gshandle_a[4]  =  op_stat_global_reg  (“pri  5  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  end-to-end  delay-0  (sec.)”); 
ete_  delay_gshandle_a[6]  =  op_stat_global_reg  (“pri  7  cnd-io-cnd  delay-0  (sec.)”); 
ete_delay_gshandle_af7]  =  op_stat_global_reg  (“pri  8  end-to-end  delay-0  (.sec.)”); 
ete_delay^handle_ar8]  =  on_stat_globaI_reg  (“synch  end-to-end  delay-0  (sec.)”); 
ete_delay^handle  =  op_stat_global_reg  (“total  end-to-end  dclay-O  (sec.)”); 

t_gshan(lle_af0]  =  op_stat_global_reg  (“pri  1  Rl.  throughput  (bps)”); 
i_gshandle_a[l]  =  op_stat_jglobal_reg  (“pri  2  Rl>  throughput  (bps)”); 
t_gshandle_a[2]  =  op..stat_global_rcg  ("pri  3  RL  throughput  (bps)”); 
t_gshandle_a[3]  =  op_stat_globaI_reg  (“pri  4  RL  throughput  (bps)”); 
t_gshandie_a[4]  =  op_stat_global_reg  ("pri  5  RL  throughput  (bps)”); 
t._gshandle_a[5j  =  op_stat_global_reg  ("pri  6  RL  throughput  (bps)”); 
t_g5han(Ilc_a(6]  =  op_siat_global_reg  (“pri  7  RL  throughput  (bps)”); 
t_gshandle_a[7]  =  op_stat_global_rcg  (“pri  8  RL  throughput  (bps)”); 
t_gshandie_aI8J  =  op_smt_giobal_  reg  (“synch  RL  throughput  (bps)”); 
t_gshancllc_a[9]  =  op_stat_global_rcg  (“async  RL  throughput  (bps)”); 
t_gsh£ndle  =  op_sut_global_rcg  (“total  RL  throughput  (bps)”); 

*! 

link^gshandleiO]  op_st8t _global_rcg  (“Link  0  jamming”); 
link_gshandle[  1]  =  op_5tat_giobaI_reg  (“Link  1  jamming"), 
link_gshandle[2]  =  op_st8i^obal.  reg  ("Link  2  jamming”), 
link_gshandle[3]  =  op_sut_global_reg  ("Link  3  jamming”); 
januner_suts_init  =  OPC_TRUE; 


subq_no  =  0; 
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/*  7APR94:detenDine  id  of  own  processor  to  use  in  finding  ♦/ 

/*  load  balancing  attribufe  and  station  address  of  the  bridge  node  *! 
myjd  =  op_id_self(); 

/*  15JUN94:  get  rate  for  link  monitoring  packet  transmission  */ 
op„ima_obj_attr_gei'  (my_id,”,Unk_monitor_trans_rate'’,  &link_mon_trans_rate ); 

/*  26JUL94:  get  duration  of  the  simulation  */ 

op_ima_sim_anr_get  (OPC„IMA_DOlJBLE,  “duration”,  &sim_duratiou): 

/*  26JUL94:generate  a  self  interrupt  at  each  time  that  a  monitoring  packet*/ 

/*  is  to  be  sent.  Since  these  packets  are  to  be  sent  at  a  fixed  teraie  (per  */ 

/*  second),  the  only  way  to  guarantee  packet  generation  in  this  event  */ 

/♦  driven  simulation  is  to  create  an  interrupt  at  the  appropriate  sim  */ 

/*  times.  These  interrupts  will  cause  a  monitoring  packet  to  be  sent  */ 

/*  through  the  discard  state.*/ 

for  (time=  op_sim_time();  time<=sini_duration;  time+=lirik_mon_tfans_rate) 
op_intipt_schedule_self  (time,  0xc021); 

} 


} 


/**  state  dNTD  exit  executives  **/ 
FSM_STATE_EX3T_FORCED  (2,  state2  exit.exec,  “INTT’) 
f 
} 


/**  state  (INIT)  transition  processing  **/ 
FSM_INrr_COND  (END_OF_SIM) 
FSM_DFLT_COND 
FSM_TEST_LOGIC  (“INir’) 

FSM.TRANSir^SWITCH 

{ 

FSM_CASE_TRANSIT  (0,  1,  ctntcl_cntcr_exec. ;) 
FSM_CASE_TRANSIT  (1, 0.  stateC_cntcr_cxec, ;) 
} 

/* - */ 


} 
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FSM_EXIT  (2,q)  fddLsink) 

} 


VC  id 

cr  ..fddi_sink_svar  (prs_ptr,var_name,v.ir_p_ptr) 
q'_fddi_sink_state*prs_ptr; 
chiT  *var_namc,  **var_pj)tr; 

( 

FIN  (cp_fddi_sink._svar  (prs_ptr)) 

*var_p_j}tr  =  VOS_NIL; 

if  (Vos_String_Equal  (“thru_gshan(lle”  .  var_iiainc)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_thni_gshandle); 
if  ( Vos_String_Equal  (“iii_delay_gshandle” .  var  _naine)) 
*var_pj)tr  =  (cb;ir  *)  (Aprs_ptr->sv_ni_dday_gshandlc); 
if  (Vos_String_Equal  (“ete_deiay_gshandle’’ .  var_nanie)) 
*var_p j)tr  =  (char  *)  (&prs_ptr->sv_eie_delay_gshaiidle); 
if  (Vos_String_Equal  (“thru_gsbandle_a” ,  var_name)) 
*var_p_ptr  =  (char  *)  (prs_ptr->s\'_thiu_£shandle_a); 
if  (Vos_String_Equal  (“m_delay_gshandle_a” ,  var_iiame)) 
*var4)_ptr  =  (char  *)  (prs4>tr->sv_m_delay_gshanclle_a); 
if  (Vos_String_Equal  (“ete_delay_f;shandle,  .a” ,  var_naine)) 
*varj)_j)tr  =  (char  *)  (prs_ptr->sv_ete_delay_gshandle_a); 
if  (Vus_String_Equal  (“t_gshandle” ,  var_aaine)) 

*vai_4)_ptr  =  (char  *)  (&prs_ptr->sv_t_gshandle); 
if  (Vos_String_Equal  (“t_gshandle_a”  .  var_name)) 
*var_p_ptr  =  (char  *)  (prs_ptr->sv_t_gshandle_a)- 
if  (Vos_SQing_Equal  (“myjd”  ,  var_nauie)) 

*var_4)_ptr  =  (char  ’^)  (&prs_ptr->sv_my_id); 
if  (Vos_String_Equal  (“PPP._scq_numbcr” ,  var_name)) 
*var_p_ptr  =  (char  *)  f&prs_ptr->sv_PP?_seq_Dumbcr), 
if  (Vos_String._Equal  (“time”  ,  var_naine)) 

*var_p_ptr  =  (char  *)  (Aprs _pir->sv_umc); 

FOUT. 

} 
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void 


cp_fddi_sink_diag  () 

{ 

double  delay,  aeat_time; 

Packet*pkptr; 

Packet*  pkpirl ;  /*5APR94*/ 
Packet*ppp_pkptr;/*  i5JUN94*/ 
int  src..addr.  my_addr; 

int  dest_addr:/*14APR94*/ 

Ici*  from_mac_  ici  jptr; 

double  fddi_sink_ttrt; 

int  xmit_sub(L.index:/*5APR94*/ 

int  load..balance_code;  /*6APR94*/ 

int  i,subq_no;  /*25APR94*/ 

int  index;  /*10MAY94  */ 

double  link_mon_trans_rate;  /*15JUN94*/ 

char  stiOI512],  strl  [512];  /*  for  diagnostics*/ 

int  mon_pkt_size;  /*26JIJL*/ 

double  sim_duration;  /*26JUL*/ 

FIN  (cp_fddLsink_diag  0) 


/*  find  out  why  straight  line  syndrome  */ 

op_jjrg_odb_print_niajor  C' - DEBUGGING  for  straight  line - ”.0PC_N1L) 

sprintf  (stiO, ’’count  of  packets  :  (%d)”,subq_mdex); 
sprintf  (sul. ’’subqueue  no :  (%d)”.subq_no); 
op_prg_odb_print_niinor  (stiO,strl.  OPC_NIL), 


Four. 

} 


void 

cp_fddi_sink_temiinate  () 

[ 

double  delay,  creat_time; 

Packet  *pkptr; 

Packet*  pkptrl  ;  /*5APR94*/ 
Packet*ppp  jpkptr;/*  15JUN94*/ 
int  src_addr.  my_addr; 

int  dest_addr,/*  1 4APR94*/ 

Ici*  firom_mac„ici_ptr; 
double  fddi..sink_ttrt; 
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int  xniit„subqJndex;/*5APR94*/ 
int  load_balance_code;  /’*^6APR94*/ 

int  i,sub(}_no:  /*25APR94*/ 

int  index;  /*  1 0MAY94  */ 

double  link_mon_traiis_rate;  /*15JXJN94*/ 
char  str0[5 1 2],  strl  [512];/*  for  diagnostics*/ 
int  inon_pkt_size;  /*26JIjL*/ 

double  sim^duradc—  /*26JUL*/ 

FIN  (cp_fddi_sink_tenninate  ()) 


Four, 

} 


Compcode 

cp_fddi_sink  Jnit  (pr_state _pptr) 
cp„fddi_sink  state*  *pr  state_pptr; 

{ 

static  VosT_Cm_ObtypeoDtype  =  OPC_NIL; 

FIN  (cp_fddi_sink_iiut  (pr_state_pptr)) 

if  (obtype  =»  0?C_NIL) 

[ 

if  (Vos_Catmem_Registcr  (“proc  state  vars  (cp_fddi_sink)*‘. 
sizeof  (cp_fddi_sink_state),  \bs_Nop.  &obtype)  ~  VOSC_FAILURE) 

FRET  (OPC_COMPCODE_FAILURE) 

} 

if  ((*pr_state_pptr  =  (cp_fddi_sink_staie*)  Vbs_Catmein_Alloc  (obtype,  1))  =  OPC_NIL) 
FRET  (OPC,COMPCODE_FAILURE) 
else 
{ 

(*pr_state.4)ptr)->curTent_block  =  4; 

FRCT  (OPC_COMPCODE_SUCCESS) 

} 

} 
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APPENDIX  D 


RING  1  LLC.SRC  MODULE  CODE 
‘%p_fddi_gen.pr.c” 


/*  Process  model  C  form  file:  sp_fddi_gen.pr.c  *! 

/*  Portions  of  this  file  Copyright  (C)  MIL  3.  Inc.  1992  */ 


I*  OPNET  system  definitions  */ 
#include  <opnet.h> 

#include  “sp_fddi^en,pr.a” 
FSM_EXT_DECS 


/*  Header  block  */ 

#define  MAC_LAYER_OUT_S'mEAMO 
#dcfincLLC_SINK_OUT_STREAf/xl  /■^18ArR94V 

/*  define  possible  service  classes  for  frames  ♦/ 
#define  FDDI_SVC_ASYNCO 
#define  FDDLSVC^S  WCl 

/*  define  token  classes  */ 

#define  FDDl_TK_NONRESTRIC'mX) 

#define  FDDI_TK_RESTRICTED1 

/*  define  output  statistics  */ 

#define  RAnO_OUTSTATO 

#(*'  VJNK_STATUS_OUTSTAT  1 

/  jm-_status  constants  30  JULS>4*/ 

#define  GOOD  0 

#define  BAD  2 


/*  history  trend  Cv^aita  30JUL94*/ 
#define  DOWN  0 

#define  UP  1 
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/*  redefine  absolute  value  function  for  fioating  pt  values  28  JUL94*/ 
#define  abs(i)  (i)<0  ?  -(i) :  (i) 

struct  hi!5tory_eleinent 

/*  format  for  linked  list  of  history  values  26JUL94*/ 

{ 

int  Dum_erTs; 

struct  history_dement  ’•‘next; 

}  *history; 

/•  function  declaration  28JUL94*/ 
smia  history_demeat  *aeate_history(); 


/*  State  variable  definitions  */ 
typedef  struct 
{ 


FSM_SYS_ 

STATE 

Distribution*  sv_lnter_dist_ptr; 

Distribution*  sv_len_dist_ptr; 

Distribution*  sv_dest_dist_ptf; 

Distribution 

*  sv_pkt_priority_ptr; 

Objid 

sv_niac_objid; 

Objid 

sv_my_id; 

int 

svJow_dest_addr; 

int 

sv_high_dest_addr; 

int 

sv_station_addr; 

int 

sv_src_addr; 

int  sv 

_low_pkt_priority; 

int  sv 

_high_pkt_priority; 

int 

svj3pp_pid_h; 

int 

sv_ppp_pid_l; 

double 

sv_arrival_Tate; 

double 

sv_mean  _pk_len; 

double 

sv_async_nux; 

lei* 

sv_mac_iciptr; 

lei* 

sv_mac_idptrl; 

lei* 

sv_llc_ici_ptr; 

Packet* 

sv_pkptTl; 

Packet* 

sv_pppjjkptrl; 

Packet* 

sv.ppp_pkptr2: 
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int  sv_hist_len; 

int  sv_link_sutus; 

int  sv.j)k«_in_em)r. 

double  £v_old_raiio; 

)  sp_fddi_gcn_sutc. 

#dehDe  pr._statc_ptr 

((sp_fddi_gen_staie*)  SimI_Mod_Siate_Pir) 

#dehne  intcr_dist  _ptr 

pr_siaie_ptr->sv_icta_dist_ptr 

#defiQc  len_dist_ptr 

pr_staie_ptr->sv_lcn_dist_ptr 

#defiiie  dest_distj;>tr 

pr_sutte_ptr->sA'_dcst_dist_ptr 

#define  pkt  jpriority  _ptr 

pr_stat€_ptr->sv_pIfl_priorityj)tr 

#acaDe  mac_objid 

pr_state.4)tr->sv_inac_objid 

#de&ne  my_id 

pr_state_ptr->sv_iny_id 

#defint  low_dest_addr 

pr_staic_ptr->sv_low_dest_addr 

#define  high_dest_addr 

pr_statej>tr->sv_higb_dcsi_addr 

#dehne  station_addr 

pr_SMtte_pfT->3v_station_addf 

#defi/ic  src_addr 

pr_staie  _ptr->sv_src_a(lcir 

#definc  low_pkt_priority 

pr_siate_ptr->sv_low_pkt_priority 

#define  high  _pkt_priority 

pr_state _ptr->sv_high4)kt_priority 

#define  ppp_pid_h 

pr_  state  j>tr->sv  _ppp_pid_h 

#define  ppp_pid_l 

pr_staie_pix->sv_ppp_pid_l 

#define  arrival_rate 

pr_state_ptr->sv_arTival_rate 

#define  mean._pk_len 

pr_state_ptr->sv_mean_pk_len 

#define  async_mix 

pr_suie_ptr->sv_async_mix 

#define  mac.iciptr 

pr_siate_ptr->sv_mac_iciptr 

#deSne  macjciptrl 

pr_staie_ptr->sv_niac_icipir  1 

#define  llc_ici_ptr 

pr  .state  _p!r->3v^  )ic_id_ptr 

#define  pkptrl 

pr_state_ptr->sv„pkpu  1 

#define  pppjJkptrl 

pr_staic_ptr->sv_ppp_pkptr  1 

#dcfine  ppp.  pkptr2 

pr_siatc_ptr->sv_pppj)kptr2 

#define  hist_len 

pr_staie_ptr->sv_.hist_len 

#define  link_status 

pr_statc_ptr->sv_link_status 

#define  pkt3_in_crror 

pr_3iate_ptr->sv_pkis_in_en'or 

#define  old_ratio 

pr_siatc_ptr->$v_old_raiio 

/*  Process  model  intemipt  handling  procedure  */ 


void 


1«2 


sp_fddi  jcnO 
{ 

Packet  •pkptr. 
im  pklcn; 

im  desi.addr. 

im  i  j,  restrict^; 

im  pln_prio; 

im  ouin_em)n: 

double  new.ratio.  upper.tbresb,  iower_thr^; 

double  LQR.t^mis.ddu: 


FSM_ENTER  (sp_fddi_gcn) 

FSM_BLOCK_SWITCH 

{ 

/* - - - - V 

/**  state  (INTT)  enter  executives  *♦/ 

FSM_STATE_ENTER_UNFORCED(0.  stateO.cntcr^cxec.  “INIT’) 
i 

/*  determine  id  of  own  processor  to  use  in  finding  attrs  */ 
myjd  =  op_id_sclf  (); 

/*  determine  address  range  for  unifotm  desination  assignmem 
op_ima_obj_attr_get  (niy_id.  “low  des;  address”,  &low_dcst_ad(lr); 
op_ima_obj_atir _gct  (tnyjd,  “high  dcst  address”.  &high_desuaddr); 

/*  determine  objea  id  of  connected  *mac*  layer  process  */ 
mac_objid  =  op_tcpo_assoc  (my_id,  OPC_TOPO_ASSC)C_OIJT. 
OPC_OBJMTYPE_MODULE.  MAC_LAYER_OUT_STT^EAM); 

/*  determine  the  address  assigned  to  it  */ 

I*  which  is  also  the  address  of  this  station  */ 
op_ima_obj_attr_gct  (mac_objid.  "station_addrcss".  &siatiOD_addr); 


/*  set  up  a  distribution  for  generation  of  addresses  *! 

dest_t1ist_ptr  =  op_disi  Joad  (’*unifonn_ini”,  low_desuaddr. 
high_dest_addr); 

/*  added  26DEC93  */ 

I*  determine  priority  lange  for  uniform  traffic  generation  V 
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op_uM_obj_ailr_get  (my_id.  "high  pkt  priority”.  Ahigh_pkt_priorkty); 
op_ima_obj_attr  jict  (my_id.  "low  pkt  priority”,  &lcw_pkt_priority); 

/*  set  up  a  disuibution  for  geoeration  of  prioriues  */ 

pln_priority _ptr  ■  op.distjoad  (“uiiiform_int”,  low_p!a_priority.  high_pkt_prio.rity);, 
/•  above  addfld  26DEC93 


r  also  determiue  the  amval  ra'e  for  padeet  generation  ’'/ 
op_ima_obj_attr_get  (myjd.  "arrival  rate”.  &arrival_rate); 

I*  determine  the  mix  of  asynchrooous  and  synchronous  *! 

I*  traffic.  This  is  expressed  as  the  proportion  of  */ 

I*  asynchronous  traffic,  i.e  a  value  of  1.0  indicates  */ 

I*  that  all  the  produced  traffic  shall  be  asynchronous.  V 
op_ima_obj_attr _gct  (my_id,  “async_mix”.  &async_mix); 

I*  set  up  a  distribution  for  arrival  generations  *! 
if  (arrival_rate  !=  0.0) 

{ 

1^  arrivals  are  exponentially  distributed,  with  given  mean  *! 
imcr_dist_j?tr  =  qj_dist_load  (“cwnstaui”,  1.0/  airival_ratc,  0.0); 

/*  determine  the  distribution  for  packet  size  *! 
op_ima_obj_attr_gct  (myJd,  "mean  pk  length”,  &mean_pkjen); 

/*  set  up  corresponding  distribution  */ 

len_dist_ptr  =  op_<list_load  (“constant”,  mean_pk_lcn,  0.0); 

/*  designate  the  time  of  first  arrival  */ 
fddi_gen_schedule  (); 

/*  set  up  an  interface  control  information  (ICI)  structure  */ 

/*  to  communicate  parameters  to  the  mac  layer  process  *! 

I*  (it  is  more  efficient  to  set  one  up  now  and  keep  it  ’*■/ 

/^  as  a  state  variable  than  to  allocate  one  on  each  packet  xfer) 
:::.«c_iciptr  ~  op_ici_create  ("fddi_mac_req”); 

} 

/*  sec  up  liistory  array  (dynamic.ally  allocated)  which  wUl  maintain  •/ 
/*  numbet  of  errors  iu  each  monitoring  packet  revd.  The  number  of  */ 
/*  values  (length  of  the  array)  saved  will  be  determined  by  an  *i 
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/*  environment  attribute.  21JUL94  */ 
op_ima_obj_attr_get  (my._id.  “history  length".  &hist_lcn); 
history  =  create_history(hist_len); 
printf(“HISTORY\n”): 
if  (op_sim_debug()  =  OPC_TRUE) 

for  (i=l;i<=hist_len;++i) 

printf  (“%d  “,history->nuin_crrs); 
history  =  hjstory->ucxt; 

} 

printf  (‘V’); 

} 

} 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXri'  ( 1  ,sp_fddi_gen) 


!**  state  (INTT)  exit  executives  **/ 

FSM_STATE_EXIT_UNFORCED  (0.  staicO_exit_cxec.  “INTT’) 

{ 

} 


!**  state  (I^JIT)  transition  processing  **/ 
FSM_TRANSn„FORCE(l.  state  l_enicr_cxec. ;) 
/* - - V 


1^*  state  (ARRIVAL)  ent»  exeojtives  •*/ 

FSM_STATE„ENTER„UNFORCED  ( 1 .  statcLenta_i»cc,  “ARRIVAL”) 

K 

r  This  station  should  receive  frames  from  the  other  Ian  as  long  a.^  */ 

I*  there  are  frames  in  the  input  sneacis  addressed  to  this  Ian  V 
/♦check  if  the  interrupt  type  is  stream  interrupt  *//*12APR94*/ 
if(op_inttpt_type()  =«  OPC_INTRPT_STRM) 

/♦  if  it  is,  get  the  packet  in  the  input  stream  causing  interrupt  */ 

/*  modified  for  PPP  imiL94  */ 
ppp_pkptrl  =  op_pk_get(op_intrpt_stnn()); 
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/*  detennine  type  of  PPP  packet  12JUL94  */ 
op_pk_nfd_gct(ppp_pkptr  1  .”pid_ii”,  &ppp_pid_h) ; 

/*  case  on  pid_h:  00  -  data,  OxcO  -  control  13JUL*/ 
switch  (ppp_pid_h) 

case  0x00:  /*  if  data,  strip  header  and  send  as  FDDI  frame  *! 
t*  strip  ofif  PPP  header  12JUL94*/ 
if  (op_sim_debug()=OPC_TRUE) 

1 

printf  (“pkt  revd  at  sp:  dataNn”); 

num_eiTors  »op_td_get Jnt(ppp_plq)tr  1  .OPC_TDA_PT_NUM_ERRORS); 
printf  (“number  of  errors  in  data  -  %dSn’  .num_errors); 

} 

op_pk_ufd_get(ppp_pkptr  1  .’’FDDI_frame”,&picptr  1 ); 
op_pk_destroy(ppp_plq)tr  1 ); 

I*  get  the  destination  address  of  the  frame  :  i6APR94 
op_ph_nfd_get(pkpal.  “des;_addr“.  &desi_addr); 

t*  check  if  this  frame  is  for  the  remote  bridge  static-  .'bridge  in  surface  Ian)  *l 
if(dest_addr  ss=  station_addr) 

/♦  if  it  is,  send  the  packet  to  llc_sink  directly  */ 

I*  in  order  to  prevent  overhead  of  mac  access  */ 
op_pk_scnd(pkptrl.  LLC_SINK_OljT_STREAM);/*  19APR94*/ 
else 

/*  this  packet  is  to  send  to  mac  */ 

/*  determine  the  source  address  of  the  frame  *! 
op_pk_iifd_get(pkptrl.  “src_addr”,  &src_ad(lr); 

/'*  set  up  an  IQ  structure  to  communicate  parametas  to  */ 

/*  MAC  layer  process  */ 

mac.idptrl  =  op_ici_crcatc("fddi_mac_req'’); 

/*  place  the  original  source  address  into  the  ICI  *//*  16APR94  *! 

I*  “fddi_mac_req''  is  modified  so  that  it  contains  the  original  */ 

/*  source  address  from  the  local  lanCcoliccuou  piaiform) 
op_ici_attr_sct(mac_iciptrl.  ”src_addr".  src_addr); 

/*  place  the  destination  address  into  the  IQ  */  /*12APR94*/ 
op_ici_attr_set(mac_iciptrl.  “desi_addr",  dest_addr); 

/*  assign  the  service  class  and  requested  token  class  */ 

/*  At  this  moment  the  frames  coining  from  the  remote  Ian  arc  assumed  */ 

/*  to  have  the  same  priority  as  synchronous  frames  in  order  not  to  accumulate  *1 
/*  packets  on  the  bridge  station  mac  and  instead  to  deliver  their  destinations 
/*  as  soon  as  possible  */ 
op_pk_iifd_set(pkptrl,  “pri”,  8); 

op_ici_attr_set(mac_iciptrl,  "svc_class”,  FDDI_SVC_SYNC); 


106 


op_ici_aa'_set(mac_icjptrl,  “pri".  8); 

op_ici_atiT_set(mac_iciptrl,  “tk_class".  FDDI_TK_NONRESTRI(n'ED); 

/*  send  the  packet  coupled  with  the  ICI  */ 
opJci_instaU(macJ  ciptr  1 ); 

op_pk_send(pkptrl.  MAC_LAYER„OUT_STREAM); 

} 

break; 

case  OxcO:  /*  either  monitoring  packet  or  LQR  */ 
op_pk_nfd_get  (ppp_pkptr  1  .”pidj”,&ppp_pid  J); 
switch  {ppp_pid_l) 

case  0x21;  /♦monitoring  packet*/ 
printf  (“MONITORING  PACKET  RECEIV!a>Vi’ ). 
num_ciTors  =op_td_get_int(ppp_p!qjlr  1  ,OPC_TDA_PT_NUM_ERRORS): 
printf  (“  NUMBER  OF  ERRORS  ->%dSn’‘,num_eiTors); 
if  ((num_cnors  !=  0)  &&  (history'>num_cn's=0)) 
pkts_in_crTor++; 

else  if  ((num_errors  =  0)  &&  (history->num_ern  !=  0)) 
pkts_in_eiTor-; 

printf  (“  TOTAL  NUMBER  OF  PACKETS  IN  ERROR  - 
>%d\n”,pkts_ia_crror); 

history->num_etrs  *  num.errors; 
hisuHy  ss  bistofy>next; 


if  (op_sim_debug()=OPC_TRUE) 

/*  print  out  history  values  30JUL94  ♦/ 

{ 

fw  (i=l;i<=hist_len;-H-i) 

I 

printf  (“%d  "  lustory->num_errs); 
histoty  =  histOTy->iicxt; 

} 

printf  (‘V): 


op_pk_dcsiroy  (ppp_pkptrl); 

ncw_ratJO  t  {double)pkts_in_crror/(double)hist_lcn; 

/*  outstat(O)  will  be  a  record  of  the  ratio  8AUG94*/ 
op_stat_local_writc  (RAnO_OUTSTAT,  ncw_ratio); 
op_ima_obj_attr_get  (myjd,  “LQR  transmission  delw”,  &LQR_trans_delta); 
if  (op_sim_debug()=OPC_TRUE) 
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printf  (“LQR  delta  -  %f  newjatio  -  %f  dd_ratio  - 
%ftfi**,LQR_trans_delta.!iew_ratio,old_ratio); 

!*  8AUG94  This  condition  allows  for  tolerance  in  the  ratio 
calculation(division)  ’*! 

if  (abs(new_ratio  -  old_ratio)  >=  LQR_trans_delta) 

ppp_pkptr2  =  op_pk_create.Jmt  (“ppp”); 
op_pk_nfd_set  (ppp  j)kptr2,  “pid  _h”,  OxcO); 
op  _pk„nfd_set  (ppp_pkptr2.  “pid_l”.  0x25); 

op_iina_obj_attt_get  (my_id,  “upper  hysteresis  threshold’', 

&upper_thresh); 

op_inia_obj_attr_get  (my_id.  “lower  hysteresis  threshold’ , 

&lower._thresh); 

/♦  status  =  GOOD  0  or  BAD  2  trend  =  tJP  1  or  DOWN  0  2AUG04*/ 
if  (ncw_ratio  >=:  upper_ttresh) 

link_status  =  BAD; 

else  if  (new_ratio  <=  lower_thrcsh) 

link„status  =  GOOD; 

else  link_staius  =  link_status  -  (link_status  %  2)\l*  remove  trend  value*/ 

/*  outstaM  1)  will  monitor  link  status  O-GOOD  1*BAD  8AUG94*/ 
op_statjocal_write  (UNK_STATUS_Oin’STAT,  (double)  (link_stams/ 


/*  trend  will  change  each  tin»  */ 
if  (new.ratio  >  old_ratio)  /*up-trcnd  */ 
link_status  +=  UP; 
else  link_status  +=  DOWN; 


op_pk_nfd_set  (ppp_pkptr2,  “LQRJnfo”,  link_status); 
if  (op_sim_debug(>=OPC_TRUE) 

{ 

printf  (“resulting  IjQR  pkfsn”); 
op_pk_print(ppp_pkptr2); 

} 

old_ratio  ®  new_ratio; 

op_pk_send  (ppp.  j)kptr2,  LI-C_SINK_OUT_STREAM); 

} 

if  (op_sim_dcbug()=OPC_TRUE) 
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printf  (“  Latest  ratio;  %f\n”.new_ratio); 
break; 

case  Ox25:/*LQR  from  cp  -  not  implemented  yet*/ 

break; 

default; 

printf  (“ERROR:  UNKNOWN  PPP  PACKET  -  pid_l=Ox%J(\n”.ppp_pidJ); 
op_pk_destroy  (ppp_pkptrl); 
break; 

} 

break; 

default; 

printf  (“ERROR;  UNKNOWN  PPP  PACKET  -  pid_h=Ox%xV’.pppj)id_b); 
opj>k_dcstroy  (ppp_pkpirl); 
break; 

} 


} 

/*  otherwise,  generate  the  frame  */ 
else 
< 

/*  determine  the  length  of  the  packet  to  be  generated  */ 
pklen  =  op_dist_outcome  (len_dist_pir); 

/*  determine  the  destination  */ 

/*  dont  allow  this  station’s  address  as  a  possible  outcome  */ 
gen_packet: 

dest_addr  =  op_dist_outcome  (dest_dist_ptr); 
if  (dest_addr  !=  -I  &A  dest_addr  =  station^addr) 
goto  gen_packet; 

/*  26DEC94  &  29JAN94;  determine  its  priwiiy  */ 
pktjprio  s  op_dist_outcome  (pkt_priority_ptr); 


/*  create  a  packet  to  send  to  mac  */ 
pkptr  =  opj3k_CTeatc_fmt  ("fddi_llc_fr”); 

/*  assign  its  overall  size.  */ 
op_pk_total_size_set  (pkptr,  pkien); 

/*  assign  the  time  of  creation  */ 

op  j>/;_nfd_set  (pkptr,  "CT_time’’,  op_sim_time  ()); 
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/*  plai’c  the  de'.tioation  address  into  the  ICI  */ 

/*  (the  protocoLtyp*?  field  will  default)  */ 
or_ici_attr_sct  (mac  Jciptr,  “dest_addr’’,  dest_addr); 

/*  place  the  source  address  into  the  ICI  *//*  17APR94*/ 
op_ici_attr_set  (macjciptr,  “src..addr”,  station_addr); 

/*  cssign  the  priority,  and  requested  token  class  */ 

/*  also  assign  the  service  class;  29JAN94:  the  fddi_llc_fr  */ 

/*  format  is  modified  to  include  a  “pri”  field.  */ 
if  (op_dist_uniform  (1.0)  <=  async_mix) 

{ 

op_pk_nfd_set  (plqptr.  “pri”,  pkt_prio);  /*  29JAN94  */ 
op_ici_attr_set  (macjciptr,  “svc_class”,  FDDI_SVC_ASYNC); 
opJci_attr_sct  (macjciptr,  “pri”,  pkt_prio);  /*  29JAN94  */ 

} 

else{ 

op4)k_nfd_set  (pkptr,  “pri”,  8);  /*  29JAN94  */ 
op.  icLattr_set  (macjciptr,  “svc_class”,  FDDI_SVC_SYNC); 
op JcLattr_set  (macjciptr,  “pri”,  8);  /*  29JAN94  */ 

} 

/*  Request  only  nonrestriaed  tokens  after  transmission  */ 
op  Jci_attr_set  (macjciptr.  “tk_dass”,  FDDLTK.NONRESIRICTED); 

/*  Having  determined  priority,  assign  it;  26DEC;:93  */ 

/*  opJci_attr_set  (mac_iciptr,  “pri”.  pkt_prio);  */ 

/*  send  the  packet  coupled  with  the  ICI  V 
op_iciJnsfall  (macjciptr); 

/*  check  if  destination  address  is  in  the  local  Iznlcollection  platform)*/ 
if(dest_addr  <=  9) 

/*  if  it  is,  this  packet  iS  to  send  llc_siuk  difecUy  */ 
op_pk_send  (pkptr.  LLC_SINK_OUT_SlREAM);  /*18APR94*/ 
else 

/*  if  not,  the  packet  is  destined  for  remote  Ian  (surface  stations)*/ 
op_pk_send  (pkptr,  MAC_LAYER_OUT_STREAM); 

/*  schedule  the  next  arrival  */ 
fddi_gen_schedule  (); 

} 

} 


no 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM„EXIT  (3,sp_fddi_gen) 


!**  state  (ARRIVAL)  exit  executives  **! 

FSM_STATE_EXIT_UNFORCED  (1.  statel_exit_cxec.  “ARRIVAL”) 

{ 

} 


/**  state  (ARRIVAL)  transition  processing  **/ 
FSM_TRANSIT_FORCE  (1.  statel_eater_exec, ;) 
/♦ - 


} 


FSM_EXIT  (0.sp_fddi_gen) 

} 


void 

sp_fddi_gen_svar  (prs_ptr.var_Qaine,varj)_ptr) 
sp_fdd  i_gen_state*prs_ptr; 
char  *v8r_naine.  **var_p_j)tr; 

{ 

FIN  (sp  fddj  gen  svar  (prs_ptr)) 

♦var _j)_ptr  =  VOS_NIL; 

if  (Vos_String_Equal  (“intcr_dist_ptr’’ .  var_nanic)) 
*var_4)_ptr  =  (char  *)  («&prs  _pir->sv_inter_dist_pir); 
if  (Vos_String_Equal  (“len_dist_ptr" .  var_name)) 
♦var_p_ptr  =  (char  *)  (Aprs  jptr->sv_len_dist_ptr); 
if  (Vos_String_Equal  (“dest_dist_prr" ,  var_nanie)) 
*var_p_ptr  =  (char  ’")  (&prs_ptr->sv_dest_dist_ptr); 
if  (Vos_String_Equal  (“pkt_priority_ptr” .  var_natne)) 
*var_p_ptr  =  fchar  *)  (&prs_ptr->sv  j)kt_priority„ptr); 


HI 


if  (Vos_String_Equal  C‘mac_objid” ,  var_name)) 
‘"var.jj.ptr  a  (char  *)  (&prs_ptr->sv_mac_objid); 
if  (Vos_String_Equal  ("my_id” ,  var_name)) 

*var_p_ptr  =  (char  *)  (Apre jJiT->sv_niy_id); 
if  (Vos_String_EquaI  (‘’low_dest_addr” ,  var_name)) 
’'‘var_p_ptr  «=  (char  *)  (&prs_ptr*>sv_low_dest_addr); 
if  (Vos_String„Equal  (“high_dest_addr” ,  var_name)) 
*varj)_ptr  =  (char  *)  (&prs_ptr->sv_high_dest_addr); 
if  (Vos_String_Equal  (“statioii_addr”  ,  var_naine)) 

*var j)_ptr  *  (char  ♦)  (&prs_ptr->sv_station_addr); 

:f  (\bs  _:Striiig_Equal  (‘■src_addr”  ,  var^name)) 

*v  ar_p_ptr  *  (char  *)  (&prs_p{r  ■>sv_src_addr); 
if  (Vos_Striiig_Equai  (‘*low_pkt _pricM-ity” ,  var_name)) 
*var_pj)tr  s=  (char  *)  (&prs_j)tr->sv_low_pkt_priority); 
if  (Vos_String_Equal  (“high4)kt_priority” ,  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_high_pkt_priority); 
if  (Vos_String_Equal  (“ppp_pid_h” ,  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv  j)pp_pid_h); 
if  (Vos_String_Equal  (“ppp_pid_l” ,  var_naine)) 
*var_p_ptr  » (char  *)  (&prs_j)tr->sv_ppp_pid_l); 
if  (Vos_Stricg_Equal  (“amval_raw” .  var^name)) 
*vai_p_ptr  =  (char  *)  (&prs_ptr->sv_arrival_raie); 
if  (Vos_String_Equal  (“mean_pk_len” .  var_iiame)) 

*var_p  _ptr  =  (char  *)  (&prs_j)tr->sv_meaD_pk  Jen); 
if  (Vos_String_Equal  (“async_mix” ,  var_naine)) 
*varj3jptr  » (char  *)  (&prs_ptr->sv_async_mix); 
if  (Vos_String_Equai  (“macjciptr" ,  var_i»ame)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_niac_iciptr); 
if  (Vos_String_Equal  (“macjciptr  1” .  var_name)) 
*var_pj)tr  =  (char  *)  (&prs_ptr->sv_mac_iciptrl); 
if  (Vos_String_Equal  (“llcjci_ptr”  .  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_llc  .id_p  r); 
if  (yos_String_Equal  (“pkptrl” ,  var^naiue)) 

♦var_p_pir  =:  (char  ’*')  («&prs  _ptr->sv_pki)trl); 
if  (Vos_String_Equal  (“ppp_pkptrl” ,  var.namc)) 
*var_p_ptr  =  (char  *)  (&prs  _ptr->sv_ppf  _pkptrl); 
if  (Vos_String_Equal  (“ppp  _pkptr2” .  var.camc)) 
*var_j)j)tr  =  (char  *)  (&prs_ptr->sv_ppp  j)kptr2); 
if  (Vos_String_Equal  (“hist  Jen" ,  var_namt,)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv_hist,  Jen); 
if  (Vos_String_Equal  (“link_status” ,  var_name)) 

*var j)_ptr  =  (char  *)  (&prs  _ptr->sv  Jink._status); 
if  (Vos_String_Equal  (“pktsJn_crror’’ ,  var_name)) 
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*var_j)_ptr  =  (char  *)  (&prs..ptr->sv_pkts_in_error); 
if  (Vos_String_Equal  (“old_ratio”  .  var_nanie)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_olcl_ratio); 

Four, 

} 


void 

sp_fddi_gep_diag  () 

{ 

Packet*pkptr; 
int  pklen; 

int  dest_addr. 

iot  i  j.  restriaed; 

int  pkt_pric; 
int  num_errors: 

doublenew_ratio,  upper_thresh,  lower_thresh; 
doub'eLQR_trans.  .delta; 

FIN  (sp_fddi_gen_diag  ()) 


Four, 

} 


void 

sp_fddi_gen_teniunate  () 

Packet  *pkptr; 
int  pklen; 

int  dest_addr. 

int  i.i.  restriaed; 

int  pktjjrio; 
int  num_errors; 

doublenew^ratio.  upper_thresh,  lower_thresh; 
doubleLQR_.trans_delta; 
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♦var_p_ptr  =  (char  *)  (&prs_ptr->sv_pkts_in_ericr); 
if  (Vos_String_Equal  (“old_ratio” ,  var_nsme)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->£v_old_ratio); 

Four, 

} 


void 

sp_fddijgen_(iiag  () 

Packet*pkptr; 
int  pklen; 

int  dest_addr. 

int  i  J.  resthaed; 

int  pkt_prio; 
int  num_exTors; 

doublenew_ratio,  upper_thresh,  lower_thresh; 
doubleLQR_trans_delta; 

FIN  (sp_fddi_geu_diag  ()) 


POUT, 

} 


void 

sp_fddi_jen_temiinate  () 

I 

Packet*pkptr; 
int  pklen; 

int  dest..addr. 

int  ij.  rcstriaed; 

int  pktjirio; 
int  num_errors; 

doublenew.jatio,  uppcr_thresh,  lower_threshi 
doubleLQR_trans_ddita; 
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/*  schedule  rlie  arrival  of  next  generated  packet  */ 
op_intipt_schedule_self  (op_siin_time.  ()  +  inter_time.  0); 

} 

strua  histoiy_element  *create_history(size) 
int  size; 

I*  returns  a  pointer  to  the  first  element  in  a  circular  linked  list  *! 

{ 

struct  history_eIement  *p,  *new,  *start; 
int  i; 

for  (i=l:i<=:iize;-H-i) 

{ 

printf  (“inside  on  iteration  %d  %d\n”.i.size); 

new  s=  (strua  history_.element*)malloc(sizeof(strua  history_element)); 

if  (!new) 

{ 

printfC'ERROR:  MEMORY  ALLOCATION”); 
exit(l); 

} 

if(i=l) 

{ 

p  =  new; 

Stan  s=  new; 

} 

else  p->ne>t  =  new,  /*  stick  new  element  on  end  of  list*/ 
new->next  =  N’JLL; 

new->num_errs  =  0; 
p  =  new; 

} 

p->aext  =  start; 
return  (start); 

} 
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APPENDIX  E 


RING  1  LLC^SINK  MODULE  CODE 
“sp_fddi_sink.pr.c” 


/*  Process  model  C  form  file:  sp_fddi_siiik.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  */ 
#include  <opnet.h> 

#include  “sp_fddi_sink.pr.h” 
FSM_EXT_DECS 


/*  Header  block  */ 

/*  Globals  */ 

/*  array  format  installed  20JAN94;  positions  0-7  represent  the  asynch  priority  levels,  PRIORITIES 
+ 1 

J*  represents  synch  traffic,  and  grand  totals  are  as  given  in  the  original.  */ 

#define  PRIORITIES  «  /*  20JAN94  */ 

#define  XMH’IER.BUSY  0  /*  10MAY94  */ 

#define  LLC_SOmCE_INPUT_STREAM  1  /*26JUL94*/ 

#define  MAC_INFUT_S'^lEA^/1 0 

static  05FEB94  */ 

double  fddi2_sink_accuin_dclay  =  0.0; 

static  /*  05FEB94  */ 

double  fddi2_sink_accum_delay  afPRIORITIES  +  1]  =  {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0); 

static  /*  05FEB94  V 

int  fddi2_sink_total_pkts  =  0; 

static  /*  05FEB94  */ 

int  fddi2_sink_total_pkts_a[PRIORmES  +  1]  -  {0. 0. 0. 0. 0, 0. 0, 0. 0); 

static  /*  05FEB94  */ 

double  fddi2_sink_total_bits  =  0.0; 

static  /*  05FEB94  V 

double  fddi2_sink_total^bits_a[PRIORITIES  +  1]  =  {0.0, 0.0, 0.0, 0.0, 0.0, 0.0. 0.0, 0.0, 0.0); 


116 


double  fddi2_sink_peak_dday  =  0.0; 
static/*  05FEB94  */ 

double  fddi2_sink_peak_delay_a[PRIORrnES  4-  2]  =  { 0.0. 0.0. 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 } ; 

static  /*  05FEB94  */ 

int  fddi2_sink_scalar_write  =  0; 

static  /*  05FEB94  */ 

int  pri2_set  =  20;  /*  20JAN94  */ 

double  busy  =  0.0;  /*  10MAY94  */ 

/*  Statistics  used  for  conunand  Unk:21APR94  ♦/ 
static 

int  fddilp2_total_j)kts  =  0; 
static 

int  fddilp2_total_pkts_a[PRIORrnES  +  1]  =  |0, 0, 0, 0, 0, 0, 0, 0, 0}; 
static 

double  fddilp2_total_bits  =  0.0; 
static 

double  fd{mp2_total_bits_a[PRIORITIES  +  1]  =  {0.0, 0.0. 0.0, 0.0, 0.0, 0.0, 0.0, 0.0. 0.0} : 

/*  Externally  defined  globals.  */ 
extern  doublefddi_t_opr  []; 

/*12JAN94;attributes  from  the  Environment  file  */ 
double  Offered.Load;  /*  12JAN94  */ 
double  Asynch_Offered_Load;  /*  12JAN94  */ 

/*  transition  expressions  */ 

#define  END_OF_SIM  opJmrpt_type()  =  OPC  JNTRPT_ENDSIM 


/*  State  variable  definitions  ♦/ 
typedef  slrua 
i 

FSM_SYS„STATE 

Gsbandle 

Gshandle 

Gsbandle 

Gsbandle 

Gsbandle 

Gsbandle 

Gshandle 

Gsbandle 

Objid 

}  sp_fddi_S!nlc_sfate; 


sv._tbru2  _gshandle; 

sv_m2_dcl  ay_gshandle; 

sv_ete2_dday_gshandle; 

sv_thru2_gshandlc_a{  10]; 

sv_ra2_dday_gsbandlc_al  1 0], 

£v_ete2_dday_gsbandle_aI9]; 

sv_t2_gshandle; 

sv,  .t2_gsliandlc_a[  1 0]; 

sv_myjd; 
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#define  pr_state _ptr 
#(lefine  thru2_gshandle 
#define  m2_delay_gshandle 
#define  ete2_delay_gshandle 
#define  thru2._gshandle_a 
#define  m2_delay_gshandle_a 
#define  ete2_delay_gshaiidle_a 
#defiae  t2_gshandle 
#define  t2_gshandle_a 
#define  my_id 


((sp_fddi_sin':_state*)  SiinI_Mod_State_Ptr) 
pr_state_ptr->sv_thni2_gsliandle 
pr_statej)tr->sv_in2_delay_gsljmdle 
pr_state_ptr->sv_ete2_delay_g'5liandle 
pr_state _ptr->sv_thru2_gshandle_a 
pr_state_ptr->sv_m2_delay _gshandle_a 
pr_state_ptr->sv_ete2_delay_gshandle_a 
prostate j)tr->sv_t2_gsliaiidle 
pr_state_ptr->sv_t2_gshandJe_a 
prostate _ptr->sv_my_id 


/*  Process  model  interrupt  handling  procedure  *[ 


void 

sp_fddi_sink  () 

{ 

double  delay,  CTeat_time: 

Packet*  pkptr; 

Packet*  ppp_pkptr, 

Packet*  pkptr  1 ;  /*5APR94*/ 
int  src_addr,  my_addr; 

int  dest_addr./*14Al-'R.94*/ 

Ici*  from_mac_ici_ptr: 

double  fddi_siQk_ttrt; 

char  pk_forTOattlO]; 

int  input_stream; 

int  fd_index.  FDDI_£rame_size; 


rSM^EPTfER  (sp_fddi_sink) 

FSM_BLOCK_SWnCH 

{ 

/**  state  (DISCARD)  enter  executives  **/ 

FSM_STATE_EbrreR  UNFORCED  (0.  stateO_enier  exec.  "DISCARD") 

{ 

/*  determine  the  type  of  imeirupi  */ 
swiich(op  intrpt_type(l) 

{ 

/•  check  if  transmittei-  is  busy  */ 
case  OPC_INTRPT_STAT: 
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{ 

busy  =  op_stat_local_read  (XMnTER_BUSY); 
break; 

} 

/*  check  if  a  packet  has  arrived  */ 
case  OPC_INTRPT_STRM: 

1 

/*  get  the  packet*/ 
input_stream  =  op_intrpt_strm(); 
pkptr  =  <v_pk_get  (inpuLstream); 
op _pk_format(pkptr,pk_format); 

/*  if  the  packet  is  a  ppp  control  packet  from  the  llc_source  */ 
if  ((strcmp(pk_format,”ppp”)=^)  &A(input_stream  =  LLC_SOIJRCE_INPUT_- 

STREAM)) 

{ 

/*  bypass  all  this  and  send  pkt  out  on  the  command  link  */ 

} 

else 

{ 

/*  assume  this  is  a  FDDI  frame  */ 
from_mac_ici_j)tr  =  opjnoptjci  (); 

/*  20JAN94:  get  the  packet’s  priority  level,  which  ♦/ 

/*  will  be  used  to  index  arrays  of  thruput  and  delay  */ 

/*  computations.  */ 

/*  pri2_set  =  op  j)k_prioriiy_get  (pkptr);  doesn’t  work  nere  */ 
op_pk_nfd_get  (pkptr,  “pri”,  &pri2_set);  /*  29JAN94  */ 

/*  determine  the  time  of  creation  of  the  packet  */ 
op_pk_nfd_get  (pkptr,  ‘'cr_time”.  &CTeat_time); 

/*  determine  the  dest  address  of  the  packet  */  /*18APR94*/ 
op_pk_nfd_get  (pkptr,  **aest_adidr”,  &dest_addr); 

/*  7APR94:dctemiine  id  of  own  processor  to  use  in  finding  */ 

/*  station  address  of  the  bridge  node  */ 
my_id  =  opJd_self(); 

/*  14APR94  ;  also  get  my  own  address  */ 
op_ima_obj_attr_get  ( my_id.  “station^address",  &my_addr); 

/*  destroy  the  packet  */ 

/*  op_4)k_destroy  (pkptr);  */ 

/*  03FEB94;  rather,  enqueue  the  packet.  This  will  be  the  */ 

/*  first  step  toward  developing  a  LAN  Iridging  structure.  */ 

/  •  -iXlA 
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/*  op_subq4)kJnsert  (pri_set,  pkptr,  OPC_QPOS_TAIL);  */ 

/*  14APR94:  check  the  fi'ame  passed  to  “11c”  is  destined  for  */ 

/*  this  station.  If  it  is  destroy  the  packet;  if  not,  allocate  the  packets  */ 

/*  to  the  command  link  transmitter  since  they  are  destined  for  the  remote  Ian  */ 
/*  -Karayakaylar  */ 

/*  determine  the  packets  coining  from  surface  stations,  this  will  */ 

/*  be  counted  for  local  traffic  */ 

/*  9(nine)  is  model  specific,  this  is  the  “station_number”  of  */ 

/*  collection  platform  bridge  station  */ 
if((dest_addr  =  my_addr)&&(src_addr  >  9)) 

{ 

/*  add  in  its  size  ♦/ 

fddi2_sink_total_bits  +=  op_pk_total_.size_get  (pkptr); 
fddi2_sink_total_bits_a[pri2_set]  +=  op_pk_tot^_size_get  (pkptr);  /*  20JAN- 

20APR94  */ 


/*  accumulate  delays  */ 

delay  =  op_sim_time  ()  -  CTeat_time; 

fddi2_sink_accum_delay  +-  delay, 

fddi2_sink_accum_delay_a[pri2_set]  +=  delay;  /*  20JAN'20aPR94  */ 

/*  keep  track  of  peak  delay  value  */ 
if  (delay  >  fddi2_sink„peak_delay) 
fddi2_sink_peak_delay  =  delay; 

/*  20JAN94;  keep  track  by  priority  levels  as  well  23JAN-20APR94  */ 
if  (delay  >  fddi2_sink_peak_delay_a[pri2_set]) 
fddi2_sink_peak_delay_a[pri2_set]  =  delay; 

op_pk_destroy  (pkptr); 

/*  inaement  packet  counter;  20JAN94  */ 

fddi2_sink_toial_pkts-H-; 

fddi2_sink_total_pkts_a[pri2_setJ++; 

/*  if  a  multiple  of  25  packets  is  reached,  ttpdate  stats  */ 

/*  03FEB94:  (0]“>[7]  represent  asynch  priorities  l->8,  */ 

/*  respectively;  [8]  represents  synchronous  traffic,  */ 

/•  and  (9]  represents  overall  asynchronous  traffic.-Nix  */ 
if  (fddi2_sink_total_pkts  %  25  =  0) 

{ 

op_stat_global_write  (thru2_gshandle, 
fddi2_sink_total_bits  /  op_sitn_time  ()); 

op_stat_global_write  (thru2_gshandle_a[pri2_set] , 
fd(li2_sink_total_bits_a[0]  /  op_sim_time()); 
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op_stat_global_write  (thru2_gshjuidle_a[0], 
fddi2_sink_total_bits_a[l]  /  op_sim_ume()); 

op_stat_global_.\Tite  (thru2_gshandie_a[l], 
fddi2_.sink_total_bits_.a[pri2_set]  /  op_sini_time()); 

op_stat_global_write  (thm2_gshandle_a[2], 
fddi2_sink.total_bits_a[2]  /  op_sim_time()); 

op_stat_global_write  (thni2_gshandle_a[3], 
fddi2_sink_total_bits_a[3]  /  op_sim_iime()); 

op_stat_global_write  (thru2.^shaiidle_aI4], 
fd(ii2_siiik_total_bits_a[41  /  op_sim_time()); 

op_stat_global_wTite  (thni2_gsliandle_a[5], 
fddi2_sink_totaI_bite_a[5]  /  op_sim_time()); 

op_stat_global_wriie  (!hru2_gshandle_a[6], 
fddi2„siiik_total_bits_a[6]  /  op_sim_time()); 

op_stat_global_write  (thni2_gshandlc_a[7], 
fd(li2_sink_total_bttJi_a[7]  /  op_sini_time()); 

op_stat_global_write  (thni2_gsliandle_ar8], 
fddi2_sink_total_bits_a[8]  /  op_sim_time()): 

/*  30JAN94:  gather  all  asynch  stats  into  one  overall  figure  */ 
op_stat_global_write  (thru2_gshandle_a[9], 
(fddi2_sink_total_bits  -  fddi2_sink_total_bits_a[8])  / 
op_sim_time()); 


I*  (fddi2_sink_total_bits_a[0]  +  fddi2_sank_totaI_bits_a[l]  +  */ 
/♦  fd(li2_sink_total_bits_a[2]  +  fddi2_sink_total_bits_a[3]  +  */ 
/•  fddi2_sink_total_bits_a[4]  +  fddi2_sink_total_bits_aI5]  +  */ 
/*  fddi2_sink_total_bits_a[6]  +  fddi2_sink_total_bits_ai7])  /  */ 
/*  q)_sim_umeO);  */ 


op_stat_global_write  (ni2_delay_gshandle, 
fddi2_sink_accuni_delay  /  fddi2_sink_total_plas); 


op_siat_global_write  (in2_delay_gshandle_a[0], 
fddi2_sink_accum_dday_a[0]  /  fddi2_sink_totalj)kts_a[0])- 
op_stat_global_  write  ( ni2_delay_gshandle_a  [  1  ] , 
fddi2_sink_aaaim.  delay_a[l]  /  fddi2_sink_total_pkt<;_a[l]); 

op_stai_global_write(ni2_delay_gshandle_a[2], 
fddi2_sink_accum_delay_a[2]  /  fddi2_sink_total_pkis_a[2]); 

op_siat_global_write  (ni2_delay_gshandle_a[3] , 
fddi2_sink_accum_delay..a[3]  /  fddi2_sink_total_pkts_a[3]); 

op_stat_global_write  ( ai2_delay.  ^shandlc_a  [4] . 
fddi2_sink_accum_delay_a[4]  /  fddi2_sink_total_pkts_a[4]); 
op_stat_global_write  {m2_delay_gshandle_aI5], 
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op„stat_global_writc  (iD2_dclay_gshandlc_a[6] , 
fddi2_sink_accum_delay_af6]  /  fddi2_sink_total_pkts_a[6]); 

op_sU''l_global_write  (m2_delay_gshandle_a[7] , 
fddi2_sink_accum_dday_a[7]  /  fddi2_sink„totaljDkts_a[7]); 

op_3iat_global_  write  (m2_dclay_5shaEdle_a[81 , 
fddi2_sink_accuin_delay_a[8]  /  fddi2_sii)k_totai_j5kts_a[8]); 

!*  30JAN'>t  .  gatiia  all  asynch  stats  into  one  figure  */ 
op  „stat_g)obal_write  (m2_delay_gshajidle_a[9] , 
(fddi2_siiik_accuni_delay  -  fddi2_sink_accum_delay_a[8])  / 
(fddi2_sink_totalj)kts  -  fddi2_sink_total_plcts_a[8])); 


/*  (fddi2_sink_accum_delay_a[01  +  fddi2_sink._accuni_delay_a[l]  +  */ 
/*  fddi2_sink_accum_delay_a[2]  +  fddi2_sink„accmn_delay_a[3]  +  */ 
/*  fddi2_sink_accuni_dday_a[4]  +  fddi2_sink_accuin_delay_a[5]  +  */ 
/*  fddi2_sink_accum_dday_a[6J  +  fddi2_sink_accum_delay_a[7])  /  */ 
/*  (fddi2_sink_total_pkts_a[0]  +  fddi2_sink_total_pkis_.a[l]  +  */ 

/♦  fddi2„sink_tota)_plrts_a[2]  +  fddi2_sink_total_pkts_a[3]  +  */ 

!*  fddi2_sink_total_pkis_a[4]  +  fddi2_sinl!:_total_pkts_a[5]  +  */ 

I*  fddi2_sink_total_pkis_a[6J  +  fddi2_sink_total_pkts_a[7]));  */ 


/*  also  record  actual  dday  values 
op_stat_global_write  (etc2_dday_gshandle.  dday); 
op_sTat_global_write  (ete2_dday_gshandle_a[pri2_set],  delay); 

1 

}/*end  of  if(dest_addt»my_addr)&&(src_addr  >  9)statement  */ 

/*  20APR94:  destroy  the  packets  coming  from  the  first  Ian  destined  */ 
/*  for  this  station.These  packets  are  not  counted  for  local  traffic.*/ 
dse  if(dest_addr  =  my_addr) 
op_pk_destroy(pkptr); 


/*  Other  frames  passed  to  “11c”  should  be  destined  for  other  Ian  */ 

/*  i  8APR94  :allocate  the  packets  to  transmitter  of  command  link  */ 
dse 

/*  add  in  its  size  */ 

fddilp2_total_bits  +=  op_pk_total_si2c _get  (pkptr); 
fddilp2_total_bits_a[pri2_set]  +=  op_pk_total_size_get  (pkptr);  /*  20JAN- 

20APR94  */ 


/*  increment  packet  counter;  20APR94  */ 
fddiip2_totai_jpkts++; 
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fddilp2_total_pkts_a[pri2_sei)-H-; 


/*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 
/*  [0]->[7]  represent  asynch  priorities  l->8,  */ 

/*  respectively;  [8]  represents  synchronous  traffic,  */ 

/*  and  [9]  represents  overall  asynchronous  traffic.-Nix  */ 
if  (fddilp2_total_pkts  %  25  =  0) 

{ 

op_stat_global_writc  (t2_gshandle. 
fddilp2_total_bits  i  op_sim_time  ()): 

op_stat_^obal_write  (t2_gshaudle_a[pri2_set] , 
fddilp2_total_bits_a[0j  /  op_sim_time()): 

op_stat_global_wri£e  (t2_gshandle_a[0], 
fddilp2_total_bits_a[ll  /  op_sim_time()); 

op_stat_global_write  (t2_gshandle_all], 
fddilp2_total_bits_a[pri2_set]  /  op_sim_time()): 
op_stat_global_write  (t2_gshandle_aI2], 
fddilp2_total_bits_a[2]  /  op_sim_timeO); 
op_stat_global_write  (t2_gshandle_a[3], 
fddilp2_totai_bits_a(3]  /  op_sim_time/()); 
op_stat_global_write  (t2_gshandle_a[4], 
fddilp2_total_bits_a[4]  /  op_sim_timcO); 
op_stat_global_write  (t2_gshandle_a[5]. 
fddilp2_total_bits_a[5]  /  op_sim_timc()); 
op_stat_global_write  (t2_gshandle_a(6], 
fddDp2_total_bits_a[6]  /  op_sim_time()); 

op_stat_global_write  (t2_gshandle_aI7], 
fddilp2_toial_bits_a[7]  /  cp..sim_time()); 

op_stct_global_WTite  (t2jgshandle_a[8], 
fddilp2_total_bits_a[8.1  /  op_sitr  .timeQ); 

/*  gather  aU  asynch  stats  into  one  overall  figure  */ 
op  _stat_global_write  (t2_gshandle_aI9], 
(fddiip2_totai_biis  -  fddiip2_total_bits_a[8])  / 
op_sim_time()); 


/*  {fddilp2_total_bits_a[0]  +  fddilp2_total_bits_a[l]  + 

/*  fddilp2_total_bits_a[2]  +  fddilp2_toial_bits_a[3]  +  */ 
/*  fddUp2_total_bits_al4]  +  fddiip2_total_bits_a[5]  +  */ 
/*  fddilp2_tot£l_bits_a[6]  +  fddilp2_toial_bits_a[7])  /  */ 
/*  op_sim_time());  */ 


} 
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/*  21  APR94:allocate  packets  to  the  command  link  transmitter  *! 
/*  altered  fw  ppp  1AUG94  */ 
ppp_pkptr  =  op_pk_create_fint(“ppp_mI”); 
op_pk_nfd_sct  (ppp_pkptr.  “pid_h”,  0x00); 

op_pk_nfd_set  (ppp_pkptr,  “pidj”,  0x3d): 
op_pk_nfd_set  (ppp_pl^tr,  “FDDI_frame’*,  pkpn); 

/*  put  ppp  packet  on  subqueue  to  be  xmined  */ 
op_sub4_pk_insert(0,  ppp_plq)tr,  OPC_QPOS_TAIL); 

}/*  end  of  else  *! 

}/*  end  of  else  for  (if  ppp  and  from  LLC_source)  */ 

j*  check  if  this  subqueue  is  empty  and  transmitter  is  not  busy  *! 
if  ((!op_siibq_empty(0))&&(busy  =  0.0)) 

/♦access  the  first  packet  in  the  subqueue  */ 

pkptrl  =  op_sub^k_remove  (0,  OPC_QPOS_HEAD); 

/♦  forward  it  to  the  transminer  of  command  link  ♦/ 
op _4)k_send  (pkptrl.  0); 

} 

break; 

}/*  end  of  case  OPC_INTRPT_STOM  statement  */ 

}/♦  end  of  switch  */ 


} 


blocking  after  enter  CACCutives  of  unforced  state.  ♦*/ 
FSM_EXIT  (i,sp_fddi_sink) 


/*♦  state  (DISCARD)  exit  executives  *♦/ 

FSM_STATE_EXlT_UNFORCED  (0.  stateO_exit_cxec.  ‘DISCARD”) 
I 
} 
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/**  state  (DISCARD)  transition  processing  **/ 
FSM_INIT_COND  (END_OF_SIM) 
FSM_DFLT_COND 
FSM_TEST,LCXjIC  (“DISCARD”) 

FSM_TRANSIT_SWITCH 

FSM_CASE_TRANSIT  (0, 1,  statel_enter_exec. :) 
FSM_CASE_TRANSIT  (1,0,  stateO_enter_exec, ;) 
} 

I* - *! 


/**  state  (STATS)  enter  executives  **/ 

FSM_STATC_ENTER_UNF0RCED  (1.  statel_entcr_cxec.  “STATS”) 

{ 

/*  At  end  of  simulation,  scalar  perfonnance  statistics  */ 

/*  and  input  parameters  are  written  out  */ 

/*  This  is  for  command  Enk  throughput  :21APR94*/ 
op_staLscalar_write  (“CL  Throu^put  (bps).  Priority  1”, 
fddilp2_total_bits._a[0]  /  op_sim..tiaie  0); 

op_stat_scalar_write  (“(X  Throughput  (bps).  Priority  2”, 
fddilp2_total_bits_a[ll  /op_sim_iime  ()); 

op_stat_scalar_write  (“(X  Throughput  (bps).  Priority  3*', 
fddUp2_tofal_biis_a(2]  /  op_sim_time  ()); 

op_stat_scalar_write  (“<X  Throughput  (bps).  Priority  4”, 
fdJilp2_iotal_bits_a[3J  /  op_sim_time  ()); 

op_stat_scaiar.  .write  (“CL  Throughput  (bps),  Prioritj'  5”. 
fddilp2_total_bits_a[4]  /  op_sim_time  ()); 

op_stat_scalar_write  (“(X  Throughput  (bps).  Priority  6", 
fddilp2_total_biis_a[5]  /  op_sim_time  ()); 

op_stat_scalar_write  (“CL  Throughput  (bps),  Ihiority  7”, 
fddilp2_total_bits_a[6]  /  op_sim_iimc  ()); 

op_st&t_scalar„write  (“CL  Throughput  (bps),  Priority  8”. 
fddilp2_total_bi;s_a[7]  /  op_sim_time  ()); 

op_,5tat„.sCttIa:_wriic  (“CL  Througiqtui  (bps),  Asynchronotis", 
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(fddUp2_total_bits  -  fddilp2_total_.bits_a[8])  /  op_sim_time  ()); 


/*  (fddilp2_total_bits_a[0]  +  fddil))2_total_bits_atl]  +  */ 
/*  fddilp2_total_bits_a[2]  +  fddilp2_total_bits_ar3]  +  */ 
/*  fddilp2_total_bits_a[4]  fddilp2_total_bits_aI5]  +  */ 
/*  fddilp2_tota.Lbits_a[6]  +  fddilp2_total_bits_a[7])  /  */ 
/*  op_siin_tiine  ());  */ 


op_stat_scalar_write  (“CL  Throujdipi't  (bps),  Synchronoas”, 
fddilp2_total_biis_a[8]  /  op_sici_tine  0); 

op_stat_scalar_write  (“CL  Throughput  (bp.?),  'Ibtal”, 
fddilp2_totai_bits  /  op_sim_time  0); 


/*  Only  one  station  needs  to  do  tiis  for  the  second  ring(Ring  1)*/ 
if  (!fddi2_sink_scalar„write) 

/*  set  the  scalar  write  flag  *! 
fddi2_sitik_sc-alar_write  =  1; 

op_siat_scalar_wriie  (“Mean land-to-End  Delay*l  (sec.),  Priority  J”, 
fddi2_sink_accum„dela)_a[0]  /  fddi2_sink_tohU_pltts_a[0]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- Ifsec.),  Priority  2”, 
fddi2_sink_accuni_delay_a[lj  /  fddi2_sink_total,pk(S_a[l]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.).  Priority  3”, 
fddi2_sink_accum_delay„a[:!]  /  fddi2_sink_totalj)lcts_a{2]); 

op_stat_scalar_write  ("Mean  End-to-End  Delay- 1  (sec.).  Priority  4”, 
fddi2_sink_accuin_delay_a[3]  /  fddi2_sink_total4Jkts_a[3]); 

op_.stat_scalar_write  (“Mean  End-to-End  Dday-1  (sec.).  Priority  5”. 
fddi2_sink_accum_delay_a(4]  /  fddi2_sink_toial_pkis_a[4)); 

op_stat_scalar_write  (“M<ian  End-to-End  Delay- 1  (sec.).  Priority  6”. 
fddi2_sink_accum_dday_aI5]  /  fddi2_sink_total_plcis_a[5]); 

op_stat_scalar_write  (“M(an  End-to-End  Delay- 1  (sec.).  Priority  7”. 
fddi2_sink_accum_delay.  a[6]  /  fddi2_sink_total_plas_a[6]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.).  Priority  8", 
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fddi2_siiik_acaim_delay_a[7]  /  fddi2_sink_total_pkts_a[7]); 


op_stat„scaiar_write  (“Mean  End-to-End  Delay-1  (sec.).  Asynchronous 
(fddi2_sink_accum_delay  -  fddi2_sink_accum_delay_a[8])  / 
(fddi2_sink_total4)kts  -  fddi2_sink_total.4)kts_at81)); 

/*  (fddi2_sink_accum_delay_a[0]  +  fddi2_sink_accum_delay_all]  +  */ 
/*  fddi2_sink_accum_delay_a[2]  +  fddi2_sink_accum_delay_a[3]  +  */ 
/*  fddi2_sink_accuiD_delay_a[4]  +  fddi2_sinlc_.accum_delay_a[5]  +  */ 
/*  fddi2_sink_accum_delay_a[6]  +  fddi2_sink_accum_delay_a[7])  /  */ 
/*  (fddi2_sink_total_pkts_a[0]  +  fddi2_sink;_total_4)kts_a[l]  +  */ 

/*  fddi2_siiik_total_pkts_a[2]  +  fddi2_sink_total_pkts_a[3]  +  */ 

/*  fddi2_sink_total_pkts_a[4]  +  fddi2_sink_total_pkts_a[5]  +  */ 

/*  fddi2_sink_totalj)kts_a[6]  +  fddi2_sink_total_j)las_a[7]));  */ 


op_stat_scuar_write  (“Mean  End-to-End  Delay- 1  (sec.),  Synchronous” 
fddi2_sink_accuni_delay_a[8]  /  fddi2_sink_total j)lcts_at8i); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.),  Ibtal”, 
fddi2_sink_accum_delay  /  fddi2_sink_total_pkts); 

op_stat_scalar_write  (“Throughput- 1  (bps).  Priority  1”, 
fddi2_sink_total„bits_a(0)  /  op_sim_time  ()); 

op_siat_scalw_write  (“Throughput- 1  (bps).  Priority  2”, 
fddi2_sink_total_bits_a[  1 J  /  op_siin_iinie  ()); 

op_stat_scalar_write  (“Throughput- 1  (bps).  Priority  3”. 
fddi2_sink_total_bits_al2]  /  op._siin_tiine  ()); 

op_stat_scalar_ write  (“Throughput- 1(  bps).  Priority  4”, 
fddi2_sink_total_bits_at3]  /  op_sini_iime  (.»); 

op_stat_scaiar_  write  (“Turoughput- 1  (bps).  Priority  5", 
fddi2_sink_total_bits_aI4J  /  op_sini_time  ()); 

op_stat_scalar_write  (“Throughput- 1  (bps).  Priority  6”, 
fddi2_sink_total_bits_a[5]  /  op_sini_time  ()); 

op_stat_scalar_ write  (“Throughput- 1  (bps).  Priority  T\ 
fddi2_,sirik_total„bits_a[6]  /op_sini_time  ()); 

op_stat_scalar_'write  (“Throughput- 1  (bps).  Priority  8”, 
fddi2_siuk_total_bits_a[7]  /  op_sim_time  ()); 

op_3tat_3calaf_wriic  (“Throughput- i  (bps).  Asynchronous”, 
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(fddi2_sink.,totaJ_bits  -  fd(li2_sink_total_mts_a[8])  /op_sim_time  ()); 


/*  (fddi2_sink_total_bits_a[0]  +  fddi2_sink_total_bits_a[l]  +  */ 
/*  fddi2_sink_total_bits_a[2]  +  fd(1i2_sink_total_bits_a[3]  +  */ 
/*  fddi2_sink_total_bits_a[4]  +  fddi2_siiik_total_bits_a[5]  +  */ 
/*  tddi2_sink_total_bits_a[6]  +  fddi2_siiik_total_bits.  ,a[7])  /  */ 
/*  op_sini_urae  ());  */ 


op_stat_scalar_write  (“Throughput- 1  (bps).  Synchronous", 
fddi2_sink_total_bits_a[8]  /  op_sim_time  ()); 

op_stat_scalai’_write  (“Throughput- 1  (bps).  Total", 
fddi2_sink_total_bits  /  op_sim_time  ()): 


op_stat_scalar_write  (“Peak  End-to-End  Delay-1  (rec.).  Priority  1”, 
fddi2_sink _peak„delay_a[0]); 

op_stat_scalar_writc  (“Peak  Eud-to-End  Dday-l  (sec.).  Priority  2", 
fddi2_sink_peak_delay_a(  1  ]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  3", 
fddi2_siak_peak_delay_a(2]); 

op_stat_scalGr.  write  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  4”, 
fddi2_sink_peak_dclay_a[3]); 

op_stat_scalar..write  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  5”, 
fddi2_sinkjpeak_delay_a[4]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  6", 
fddi2_sink_peak_delay_a[5]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay- 1  (sec.),  P*rioriiy  7”, 
fddi2_sink _peak_delay_a[6]); 

op_stat_scalar_wrue  (“Peak  End-to-End  Dday-l  (sec.).  Priority  8”, 
fddi2_sink_peak.  dday_a[7]); 

op_stat_scalar_write  (“Peak  End-to-End  Dday-l  (sec.),  Synchronous", 
fddi2_  si  nk_peak_delay_a[8]); 

op_stat_scalar_write  (“Peak  End-to-End  Dd&y-l  (sec.).  Overall”. 
fddi2_sink_peak_dddy); 
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/*  Write  the  TTRT  value  for  ring  0.  This  preserves*/ 

/*  the  old  behavior  for  single-ring  simulations.*/ 
op_stat_scalar_ write  (“TTRT  (sec.)  -  Ring  1”. 
fddi_t_opr  [1]); 

/*  12JAN94:  obtain  offered  load  information  from  the  Environment  */ 

/*  file;  this  will  be  used  to  provide  abscissa  information  that  */ 

/*  can  be  plotted  in  the  Analysis  Editor  (see  ‘‘fddi_sink”  STATS  */ 

/*  state.  To  the  user:  it’s  your  job  to  keep  these  current  in  */ 

/*  the  Environment  File.  -Nix  */ 

op_ima_3im_anr _get  (OPC_IlvtA_DOLIBLE.  “total_offered_load_  1’’,  &Offered_Load); 
op_una_sim_attr_get  (OPC_IMA_DOUBLE.  “asynch_offered_load_r’,  AAsynch  _Of- 
fered_Load); 


/*  12JAN94:  write  the  total  offered  load  for  this  run  */ 
op_stat_scalar_write  (“Total  Offered  Loat‘-l  (Mbps)”, 
Offcred_Load); 

op_stat_scalar_write  (“Asynchronous  Offered  Load-1  (Mbps)”, 
Asynch_Offered_Load); 

} 

} 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXIT  (3,sp_fddi_sink) 


/**  state  (STATS)  exit  executives  **/ 

FSM_STATE_EXIT_UNFORCED  (1.  state  »_cxit_exec,  “STATS”) 

} 


/**  state  (STATS)  transitiou  processing  **/ 
FSM_TRANSIT_MISSING  (“STATS”) 


/**  state  (INTT)  enter  executives  **/ 

FSM_STATE_ENTER_FORCED  (2.  state2_enier_exec.  “INTT’) 

{ 

r  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 
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/*  20JAN94:  set  airay  format  */ 


thru2_gshan(lie_aI0]  =  op_stal_g>obal_reg  (“pri  1  tliroughput-1  (bps)”); 
thru2_gshandle_a[l]  =  op_stat_global_reg  (“pri  2  throughput- 1  (bps)  ’); 
thru2_gshanclle_a[2]  =  op_stat_gloDal_reg  (“pri  3  throughput- 1  (bps)”); 
thru2_gshandle_a[3]  =  op_stat_global_reg  (“pri  4  throughput- 1  (bps)”); 
thru2_gshandle_a[4J  =  op_stat _global_reg  (“pri  5  throughput- 1  (bps)’ ); 
thru2_gshandle_a[5]  =  op_stat _global_reg  (“pri  6  throughpi  1  (bps)”); 
thru2_gshandle_a[6]  =  op_stat_global_reg  (“pri  7  throughpu  •  1  (bps)”); 
thru2_gshanclle_a[7]  =  op_stat_global_ref  (“pri  8  throughpi  1  (bps)”); 
thru2_gshandle_a[8j  =  op..stat_global_reg  (“synch  throughput- i  (bps)”); 
tliru2_gshanclle_a[9]  =  op_stat_global_reg  (“async  throughput- 1  (bps)”); 
thru2_gshaadle  =  op_stat_global_reg  (“total  throughput- 1  (bps)”); 

m2_delay_gshandle_a[0]  =  op_siat_global_reg  (“pri  1  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_atl]  =  op_stat_global_reg  (“pri  2  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_a[2]  =  op  .ctat _global_reg  (“pri  3  mean  delay- 1  (sec.)”), 
m2_delay_gshaiidlc_a[3]  =■  op_stat  jglobal_reg  (“pri  4  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_a[4]  =  op_stat_global_reg  (“pri  5  mean  delay- 1  (sec.)”); 
m2,delay_gshandle_a[5]  =  op_stat_globaI_reg  (“pri  6  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_a[6]  =  op_stat_global_reg  (“pri  7  mean  delay- 1  (sec.)”); 
m2_delay_gshandle,  a[7]  =  op_stat_globa]_reg  (“pri  8  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_a[8]  =  op_stat_global_reg  (“synch  mean  delay-1  (sec.)”); 
m2_delay_^shandle_at9]  =  op_stat_global_reg  (“async  mean  delay- 1  (sec.)”); 
m2_delay_gshan(!le  -  op_stat.global_reg  (“total  mean  delay- 1  (sec.)”); 

cte2_dclay_gshandle_a[0]  -  i3p_stat_global_reg  (“pri  1  end  to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_a[lj  =  op_siat_global_reg  (“pri  2  end-to-end  delay-1  (sec.)”); 
ete2_delay_gshandle_ar2]  =  op_stat_global_reg  (“pri  3  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle  a[3]  =  op_stat_global_reg  ("pri  4  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_5  [4]  =  op_stat_global_;eg  (“pri  5  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  end-to-end  delay- 1  (sec.)”); 
eie2_Jelay,_gshandle_a[6]  =  op_5tai_global_reg  (“pri  7  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_al7]  =  op_siat _global_reg  (“pri  8  cnd-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_a[8]  =  op_stat _globaLreg  (“synch  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle  =  op_stai_global_reg  (“Mjtal  end-to-end  delay- 1  (sec.)”); 

t2_gshandle_a[0]  =  op_stat_globa].  reg  (“pri  1  CL  throughput  (bps)”); 
i2_gshand]e_a(l]  -  op_stat _global_reg  ("pri  2  CL  throughput  (bps)”); 
t2_gshandle_a[2]  =  op_stat_global_rcg  (“pri  3  CL  throughput  (bps)"); 
t2_gshandle_a[3]  =  op_stai _global_rcg  (“pri  4  CL  throughput  (bps)”); 
t2_gshandle_a[4]  =  op_stat_global_rcg  (“pri  5  CL  throughput  (bps)’’); 
t2.jshandle_a[5]  -  op_stat^obal_reg  (“pri  6  CL  throughput  (bps)”); 
t2_gshandle_a[6]  =  op_stat_global_reg  (“pri  7  CL  throughput  (bps)”); 
t2_gshandle_a[7]  =  op_stat_global_reg  ("pri  8  CL  throughput  (bpsV’), 
t2_gsbandle_at8]  =  op_3tat_global_reg  (“synch  CL  throughput  (bps)”); 
t2_g,shandle_a[9]  =  op_stat_global_reg  ("async  CL  throughput  (bps)”); 
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t2  _gshaudle  =  op_stat_globaI_reg  (“total  CL  throughput  (bps)”); 


} 


/**  state  vINTl)  exit  executives  ♦*/ 

FSM_STATE.F,X  FORCED  (2.  staie2_exit_exec.  “INTf" ) 

{ 

} 


/**  state  (INTT)  transition  processing  **/ 
FSM_INIT_COND  ^END_OF_SIM) 
FSM_DFLT_CGND 
FSM_TEST,LOGIC  (“JMT’) 

FSM_TRANSrr_SWITCH 

FSM_CASE_TRANSrr  (0,  1,  state l_enter_cxec, ;) 
FSM_CASE_TRANSIT  (1,0,  stateO_enter  exec, ;) 
} 

I* . 


} 


FSM_EXIT  (2,sp..fddi_sink) 

} 


void 

sp_fddi_sink_svar  (prs  _ptr.var_iiaine,var j)_pir) 
sp_fddLsink ,  state'*'prs_ptr, 
chwJ"  *var_nan3e,  **var_p_ptr; 

{ 

FIN  (sp_fddi_sink_svar  (prs_ptr)) 

*var4)_jptr  =  VOS_NIL; 

if  (Vos_,Siring_Equal  (‘‘thru2_gshandle” .  vai.namc)) 
*varj>_4)tr  =  (char  *)  (&prs_pfT->sv_thru2_gshandle), 
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if  (\tos_String_Equal  (“m2_delay_gshancUe”  ,  V8r_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_iii2_delay_gshandle); 
if  (Vos_String_Equal  (“ete2_delay_gshandle’' .  var..namc)) 
*var^_ptr  =  (char  *)  (Aprs_ptr->sv_ete2_delay_gshandl6); 
if  (Vos_String_Equal  (“tliru2_gshandie_a” ,  var_naiDe)) 
*var_p_ptf  =  (char  *)  (prs_ptr->sv_thru2_gshandle_a); 
if  (Vos_String_Equal  (“m2_delay^shandle_a” ,  var_name)) 
*var_p_ptr  =  (char  *)  (prsj)tr->sv_m2_delay_gshandle_a); 
if  (Vos_String_Equal  (“ete2,  dday_gshaiidle_a” ,  var_naine)) 
*var_p_ptr  =  (char  *)  (prs_ptr->sv  ete2  delay  gshandle  ai: 
if  (Vos_String_Equal  C*t2_gshandle” ,  var_aame)) 

*v£r_p_j)tr  =  (char  *)  (&prs_ptr->sv_t2_gshandle); 
if  (Vos_String_Equal  (“t2_gshandle_a"  ,  var_namc)) 
*var_p_ptr  =  (char  *)  (prs_ptr->sv_t2_4;shandlc_a); 
if  (\bs_Siring_Equal  (“myjd" ,  var_naine)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv_myjd); 

Four, 

} 


void 

sp_fddi_siiik  diagO 

( 

double  delay,  creat_timei 
Packet*plqjir; 

Packet*ppp4)kptr; 

Packet*  pl^trl ;  /*5APR94*/ 
int  src_a(1dr,  my_addr; 

int  dest_addr./*14APR94*/ 

Ici  *  frcm_inac_ici_ph , 

double  fddi_sink_ttrt; 

char  pk_format[10]; 

int  input_strcani; 

int  fd_index,  FDDI_£rainc_sizc; 

FIN  (sp_fddi_siak_diag  ()) 


POUT. 

} 


132 


void 

sp_fddi_sink_tennmate  () 

{ 

double  delay,  creat_time: 
Packet*pkptr; 

Packet*ppp_pkptr: 

Packet*  pkptrl :  /♦5APR94*/ 
int  src_addr,  my_addr; 

int  dest_addr,/*  1 4APR94*/ 

Ici*  firom_mac_ici_ptr; 

double  fddi_sink_ttrt; 

char  pk_format[10]: 

int  input_stream; 

int  fd_index,  FDDI_frame_size: 

FIN  (sp_fddi_sink_terniinate  ()) 


Four, 

} 


Compcode 

sp..fddi_sink_init  (pr_state.  jjptr) 
sp_fddi_sink_state*  *pr_state_pptr; 

{ 

static  VosT_Cm_Obtypeobtype  =  OPC_NIL: 

FIN  (sp_fddi_sink_init  (pr_state_pptr)) 
if(obtype  =  OPC_NIL) 

if  (Vos_Catniem_Register  (“proc  state  vars  (sp_fddi_sink)”, 
sizeof  (sp_fddi_sink_state).  Vos_Nop,  &obtype)  =  VOSC_FAILURE) 

FRET  (OPC_COMPCODE_FAILURE) 

} 

if  ((*pr_state_pptr  =  (sp_fddLsink_staic*)  Vos_Catniein_ Alloc  (obtype,  1))  ~  OPC_NIL) 
FRET  (OPC_COMPCODE_FAILURE) 
else 
i 

(*pr_state_pptr)->curreni_block  =  4; 

FRET  (OPC_COMPCODE_SUCCESS) 

} 

} 
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APPENDIX  F 


ENVIRONMENT  FILE  EXAMPLE 
“run4.er’ 

#  cdl4_lb0jam0.ef 

#  sample  simulatiOD  configuration  file  for 

#  two  interconneaed  10  station  network  in  tbe 

#  existence  of  pulsed  jammer  interference  (137.088  Mbps  channel  hierarchy ) 

#  with  circular  allocation  load  balancing  algorithm 

#***  Attributes  related  to  loading  used  by  “fddi_gen”  *** 

#  station  addresses 
*.ring0.fD.mac.station_address;  0 
*.ring0.fl.mac.station_address:  1 
*.ring0.f2.mac.station_address:  2 
*.ring0.f3.mac.station_adclress:  3 
*.ring0.f4.mac.station_address:  4 
*.ring0.f5.mac.station_address;  5 
*.ring0.f6.mac.station_address:  6 
*.ring0.f7.mac.station_address:  7 
*.ring0.f8.mac.station_address:  8 
*.ring0.f9.mac.station_address:  9 

*.ringl.fD.mac.station_address:  10 
*.ringl.fl.mac.station_address:  11 
*.ringl.f2.mac.stafion_.address:  12 
*.ringl.G.mac.station_address;  13 
*.ringl.f4.mac.station_address:  14 
*.ringl.f5.mac.station_address:  15 
*,ringl.f6.mac.station_address;  16 
*.ring  1  .f7.mac.station_addre5s;  1 7 
*.ringl.f8.mac.station._address;  18 
*.ringl.f9.mac.station_address:  19 


*.ringO.*.mac.ring_id  :0 
•j'ingl.*.mac.ring_id  :1 


#  Specific  stations  may  be  tailored  by  specifying  the  full  name: 

#  for  example,  top.ring0.fl9.11c_src.async_mix  :  .5 

#  This  means  all  stations  miist  be  specified,  or  individuals 

#  may  be  luuned  after  the  generic  is  specified. 
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#  destination  addresses  for  random  message  generation 
#”*.*.lic_src.low  dest  address” ;  9 
#”*.*.llc_src.high  dest  address”  ;  9 
#”top,ring0.fi).llc_src.low  dest  address” : 

#'  top.ring0.fD.Uc_src.high  dest  address”  : 

"*.ringO.*.llc_src.low  dest  address”;  10 
“*.ringO.*.llc_src.high  dest  address”:  19 
“*.ringl.*Jlc_src.lowdest  address”:  0 
“’''.ringl.*.llc_src.high  dest  address”:  19 

#  range  of  priority  values  tbat  can  be  assigned  to  packets;  FDDI 

#  standards  allow  fcM'  8  priorities  of  asynchronous  traffic.  MILS’s 

#  original  model  is  modified  to  allow  each  station  to  generate  multiple 

#  priorities,  within  a  specified  range. 

“*.*.Uc_src.high  pkt  priority”  :  7 
“*.*.llc_src.low  pkt  priority”  :  0 


#  arrival  rate(frames/sec),  and  message  size  (bits)  for  random  message 

#  generation  at  each  station  on  the  ring. 

“♦.♦.♦.arrival  rate  ’ :  250 
"♦.♦.♦.meanpk  length” :  20000 
#”ring0.f9.*.arrival  rate”:  0 
#”ring0.f9.*.mean  pk  length”:  0 
#”rmgl.f9.*,arrival  rate”:  0 
#”ringl.f9,*.mean  pk  length”:  0 

#  7APR94  -  S.Karayakaylar 

#  determine  which  load  balancing  algorithm  is  in  use  in  the 

#  local  bridge  station  (linking  node). 

#  User  should  specify  the  algorithm  before  simulation. 

# 

#  0  (zero)  -— >  circular  load  balancing  algorithm  (default) 

#1  (one)  — >  empty  allocation  algorithm 

# 

“top.ring0.f9.11c_sink.load  balancing  algorithm”:0 

#  1.5JUN94  -  Ike 

#  determine  rate  at  which  link  monitoring  packets  will  be  sent  (secs/pkt) 

#  and  size  of  pkt  (bits) 

”top.ring0.f9.11c_sink.link_monitor_trans_rate":0.000729 
”top.ring0.f9.11c_siak.monitoring  pkt  size":5(X)0 

#  1  %  overhead 

#  26JUL94  -  Ike 

#  attributes  related  to  link  monitoring  and  LQR’s 
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#  LQR  transmission  delta  -  the  change  in  the  ratio  of 

#  (bad  packetsAotal  pkts  in  history)  when  an  LQR  will  be  transmitted 

#  ex:  .1  means  that  an  LQR  will  be  sent  when  the  ratio  changes  by  10% 

#  hysteresis  thresholds  determine  when  to  declare  a  change  in  the  link  status 
#these  also  are  based  on  the  ratio  of  bad  packets/total  pkts  in  history 

#  history  length  is  the  size  of  the  linked  list  which  holds  the  number  of  errors 
#in  the  last  x  monitoring  packets 

‘‘*.*.f9.*.LQR  transmission  delta”:0.099 
“*.*.f9.*.upper  hysteresis  threshold”:0.5 
“*.*.f9.*Jower  hysteresis  threshold”:0.3 
“*.*.f9.*.history  length”:50 
“top.ringl.f9.’''.ecc  threshold”:0.(X)5 
#18AUG94  -  Ike 

#allow  xmission  rates  to  be  set  at  env.  file  The  corresponding  xmtr/rcvr 
Wrates  should  be  the  same,  (bits/sec) 

“ring0.f9.pt_l  [0]  .data  rate";  1530000 
‘‘ringl.f9.pr_l[0].data  iai?”;1530000 
‘‘ring0.f9,pt_2[0].data  rate".  3060000 
"ring l.f9.pr_2[0]. data  rate":  3060000 
‘‘ring0.f9.pt_3[0].datarate":  21420000 
"ring l.f9.pr_3[0]. data  rate":  21420000 
"ring0.f9.pt_4[0]. data  rate":  42840000 
"ringLf9.pr_4[0].data  rate":  42840000 

#  15APR94  :detenmne  the  station  address  of  the  bridge  node  in 

#  both  rings. 

"top.ring0.f9.llc_sink.station_address”;9 
“top.ringl  .f9.11c_sink.station_address”:  19 

#  12DEC93;  total  offered  load  is  the  sum  of  all  stations’  loads  (Mbps). 

#  Compute  this  by  hand;  this  value  is  useful  for  generating 

#  scalar  plots  where  offered  load  is  the  abscissa. 
total_otferedjoad_0 : 0.18 
asynch_offered_load_0 : 0.162 
total_offered_load_l :  0.18 
asynch_offered_load_l ;  0.162 

#  set  the  proportion  of  asynchronous  traffic 

#  a  value  of  1.0  indicates  all  asynchronous  traffic 
‘■*.*.*.asyuc_mix” :  0.9 
#”top.ring0.f9.11c_src.async..mix” :  1 

Ring  configuration  attributes  used  by  "fddi^mac” 

#  allocate  percentage  of  synchronous  bandwidth  to  each  station 

#  this  value  should  not  exceed  1  for  all  stations  combined;  OPNET  does  not 

#  enforce  this;  01FEB94:  this  must  be  less  than  1;  see  equation  below 
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“*.*.mac.sync  bandwidth” :  0.08955675 
#”top.ring0.f9.mac.sync  bandwidth”:  0.0 

#  Target  Token  Rotation  Time  (one  half  of  maximum  synchronous  response  time) 

#  (This  is  commented  out  for  compatibility  with  the  fddLscript,  which 

#  sets  T_Req  on  the  simulation  command  line;  remove  the  comment  pound-sign 

#  below  to  make  this  environment  file  self-sufficient.) 

#  SUM(SAi)  +  D_Max  +  F_Max  -h  ■foken_Time  <=  TTRT 

#  Powers  gives  TTRT  -  10  ms  as  necessary  for  voice  transmission;  in  “BONeS”. 

#  D_Max  +  F_Max  +  Token_Time  =  1.97388  ms. 

‘‘*.*.mac.T_Req”  :.004 


#  Index  of  the  station  which  initially  launches  the  token 

#  17APR94 :  -Karayakaylar 

#  This  index  should  be  greater  than  the  maximum  station  number 

#  Bridge  stations  spavms  token  for  interconnected  simulation  by  default, 
“spawn  station”;20 


#  Delay  incurred  by  packets  as  they  traverse  a  station’s  ring  interface 

#  see  Powers,  p.  351  to  a  discussion  of  this  (Powers  gives  lusec, 

#  but  60.0e-08  agrees  with  Dykeman  &  Bux) 
stationjatency  :60.0e-08 


#  Propagation  Delay  separating  stations  on  the  ring. 

#  If  propagation  delay  is  5.085  nicrosec/km,  this  correqionds  to 

#  to  a  50  station  ring  with  a  circumference  of  50  km. 

#  (The  value  given  for  propagation  delay  corresponds  to  Powers,  i.  id  to 

#  Dykeman  &  Bux) 
prop_delay;5.085e-06 

#  CDL  link  related  attributes  -Karayakaylsi  7APR94' 

#  The  attributes  below  are  specified  with  respea  to  the  jammer  type 

4f  There  are  two  types  of  jamming  models  which  the  CDL  is  exposed  to. 

# 

#  ( 1)  Pulsed  jammer  (jammer_type  =  0) 

#(2)  Channel-swept  jammer  (jammi  f„type  =1) 

# 

#  NOTE:For  pulsed  jammer  init  Jam_ofifset  may  be  zero,  whereas  a  proper 

#  offset  should  be  .specified  for  channel-swept  jammer. 

#  jamjength,  jam_ber,  interval_bajam_len,  ber_betjam_len  are  maximum 

#  values  in  the  case  of  pulsed  jammer  since  they  are  randomized  in  the 
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#  error  allocation  pipeline  stage. 

#  For  channel-swept  jammer  only  jam_ber  and  ber_bct  Jam_len  attributes  are 

#  maximium  values  to  be  randomized. 

#  return  link  ls_0  to  ls_3 

#  command  link  ls_4 
*.ls_0.jam_length:  0.05 
*.ls_l.jam_length:  0.02 
*.ls_2.jam_length;  0.01 
*.ls_3.jam„lcngth:  0.09 
*.ls_4.jam_length:  0.05 
*.ls_0.jam_ber:  2e-3 
‘*'.ls_l.jam_ber:  2e-3 
*Js_2.jam_ber;  2e-3 
*.ls_3.jam_ber:  2e-3 
*.is_4.jam_ber;  0.0 
*.ls_C.inteival_betJam_len:  0.03 
♦.ls_l.interval_betjam_len:  0.03 
*.ls_2.interval_betjam_len;  0.03 
*.ls_3.inter\'al_betjam_lcn:  0.03 
*.ls_4.interval_bet_jam_len:  0.03 
♦Js_0.ber_betjam„len:  2e-6 
*.ls_l.ber_betjam_len:  2e-6 
*.ls_2.ber_betjam_len;  2e-6 
*.ls_3.ber_hetjain_lea:  2e-6 
*.ls_4.ber„bctjam_len:  0.0 
*.is_0.initjam_offsef  0.0 
*.ls_l.initJam_ofFset:  0.0 
*.ls_2.init Jam_o£fset:  0.0 
*.ls_3.init  Jam_o£Fset:  0.0 

#  Js_4.initJara_offset:  0.0 
*.ls_0.jammer_type:  1 
*Js_l.jammer_type:  1 
*.ls_2.janmier_type:  1 
*.ls_3.jammcr_type:  1 
*.ls_4.jammer_type:  0 

#  Return  and  command  link  propagation  delays  are  specified  as  60  msec. 
*Js_0.dclay;  0.06 

*Js_l. delay;  0.06 
*Js_2.delay:  0.06 
*Js_3.delay:  0.06 
*.ls_4.delay:  0.06 

#***  Simulation  related  attributes 

#  Token  Acceleration  Mechanism  enabling  flag. 

#  It  is  reccomended  that  this  mechanism  be  enabled  for  most  situations 
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#  16APR94  :  for  bridged  fddi_cdl_intercoimection  network  this  flag 

#  must  be  zero.  Otherwise,  program  fault  occurs.  -Karayakaylar 

#  error  documented  on  MIL3  bbs  -  Ike 
accelerate_token:0 


#  Run  control  attributes 
seed:  10 

#duration;  10.001 
verbose_sim;’IRUE 
upd_mt:.l 
#os_file: 

#  (This  is  commented  out  for  compatibility  with  the  fddLscript,  which 

#  sets  the  output  vector  file  on  the  simulation  command  line;  remove  the 

#  comment  pound*sign  below  to  make  this  environment  file  self-sufi&dent.) 
#ov_file: 


#  Opnet  Debugger  (odb)  enabling  attribute 
debug:FALSE 
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APPENDIX  G 


OPNET  C-SHELL  SCRIPT  FILE  EXAMPLE 

“opnet_script” 


#!  /bin/csh  -f 
setenv  debug  FALSE 
cd  $HOME/op_.models/cdl 

fddi_cdl.sim  -ov_file  tester8_l  -ef  runl  \ 

-probe  fddi_cdlj)robe_special  -duration  10.001 

fddi_cdl.sim  -ov_file  tester8_2  -ef  run2\ 

-probe  fddi_cdlj)robe_special  -duration  10.001 

fddi_cdl.sim  -ov_file  tester8_3  -ef  run3  \ 

-probe  fddLodl  _probe_special  -duration  10.001 

fddi_cdJ.sim  -ov_file  tester8_4  -ef  run4\ 

-probe  fddi_cdl_probe„special  -duration  10.001 
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APPENDIX  H 


TCP  RING  0  LLC_SRC  MODULE  CODE 
“cp_fddi_gen_tcp.pr.c” 


/*  Process  model  C  form  file:  cp_fddi_gen_tcp.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  *! 
#include  <opnet.h> 

#include  “cp_fddi_gen_tcp.pr.h” 
FSM_EXT_DECS 


/*  Header  block  */ 

#defineMAC_LAYER_Oirr_S'mEAM  0 

#define  LLC_SINK_OUT_S'mEAM  1  /*  18APR94*/ 


#defineRECEIVER_IN_STREAM  0 

#define  IP_IN_STREAM  1 


/*  define  possible  service  classes  for  frames  */ 

#define  FDDI_SVC_ASYNCO 
#defineFDDI_SVC_SYNC  1 

r  define  token  classes 

#defineFDDI_TK_NONRESTRICTED  0 

#defineFDDl_TK_RESTRICTED  1 

/♦ADDITIONS  AFTER  HERE  10SEP94  */ 

/*  this  can  be  used  if  checking  to  ensure  incoming  IP  dgrams  V 
#define  NET_PROT_IP  0x0800 


/*  State  variable  definitions  *! 

tvTMvIftf  stnirt 
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{ 

FSM_SYS_STA1'E 
Objid  sv_mac_objid: 

Objid  sv_rayjd; 

int  sv_stauon_cddr; 

int  sv_src_adclr; 

double  sv_arrival_rate: 

double  sv_mean_pk_len: 
double  sv_async.,mix; 

Ici*  sv_inac_iciptrl; 

Id*  sv_llc_idptr; 

Packei*  sv_plq5tr  1 ; 

}  cp_fddi_gen_tq)_state; 


#define  pr_state  j)tr 
#define  mac_objid 
#define  my_id 
#define  station_addr 
#define  src_addr 
#deiiDe  arriv2l_rate 
#define  niean_pk_len 
#define  async.mix 
vMcfine  raacjdptrl 
#define  lie,  iciptr 
#define  pkpul 


((cp.fddi_gen_tq)_state*)  SimI_Mod_Staie_Ptr) 

pr_state_ptr->sv_mac_objid 

pr_state_pti->sv_my_id 

pr_stace_ptr->sv_station_addr 

pr_siatc_ptr->sv_src_addr 

pr_staiejptr->sv_arrival_rate 

pr_state_pcr->sv„mean_pk_len 

pr_state_ptr->sv_async_nix 

pr_sute_ptr->sv_.n<ac.  Jdpir  1 

pr  _state_ptr'>sv_llc_iripu' 

prostate  jptr->sv..pkptr  1 


/*  Process  model  interrupt  handling  procedure  •/ 


void 

cp_fddi_gen_tcp  () 

Packet  •pkptr,  *ppp_pkptr.  *ip_pkptr.  *inac_fraincjpn-. 

int  pklen; 

int  dest_addr; 

im  i,  restriaed; 

int  ppp_pid_i].  ppp_pid_l; 

int  status; 

double  creation_time; 
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Ici 


*ip_ii;iptr; 


FSM_.ENTER  (q)_fddi_gen_tq)) 

FSM_BLOCK_SWITCH 

( 

y* - *! 

!**  state  (INTD  enter  executives  **/ 

FSM_STATE_EN1’ER_UNF0RCED  (0,  stateO_enter_exec,  “INIT’) 

{ 

/*  determine  id  of  own  processor  to  use  in  finding  attrs  */ 
my_id  =  opJd_self  (); 

/*  determine  objea  id  of  connected  ‘mac’  layCT  process  */ 
mac..objid  =  op_topo_assoc  (my_id.  OP(7_TOPO_ASSC)C_OLrr, 
OPC_OBJMTYPE_MODULE,  MAC_LAYER_OUT_S'l'REAM); 

/*  determine  the  address  assigned  to  it  */ 

/*  which  is  also  the  address  of  this  station  *! 
op_ima_obj_anT_get  (mac_objid,  “station_address”,  &station_addr); 

/*  set  up  an  interface  control  information  (ICI)  structure  */ 

/*  to  communicate  parameters  to  the  mac  layer  process  */ 

/*  (it  is  more  efficient  to  set  one  up  now  and  keep  it  */ 

/*  as  a  state  variable  than  to  allocate  one  on  each  packet  xfer)  */ 
mac_iciptrl  =  op_ici_create  (“fddi_mac_ieq_tcp”); 
llc_iciptr  =  op_ici_create  (“fddi_mac_ind_tq)”); 

} 


/**  blocking  after  enter  executives  of  unforced  state 
FSM_EXrr  (l,cp_fddi_geD_tcp) 


/**  state  (INIT)  exit  executives  **! 

FSM_STATE_EXIT_UNFORCED  (0.  stateO_exit_exoc,  "INTT’) 

} 


!**  state  (It'TT)  transition  processing  **/ 
FSM_TRANSIT_FORCE  (1,  state l._enter_exec, ;) 
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I* 


'*/ 


/**  state  (ARRIVAL)  enter  executives  **/ 

FSM.  STAlE_ENimjJNFORCED  (1.  state l_enter_exec.  “ARRIVAL”) 

{ 

/*  This  station  sbould  receive  frames  from  the  other  Ian  as  long  as  */ 

/*  there  are  frames  in  the  input  streams  addressed  to  this  Ian  */ 

/♦check  if  the  interrupt  type  is  stream  interrupt  *//*12APR94*/ 
if((op_intrpt_type()  =  OPC_INTRPT_STRM)  Sl&  (op_intrpt_stnn()  = 
RECErVER_IN_SlREAM)) 
i 

/*  if  it  is,  get  the  packet  in  the  input  stream  causing  interrupt  */ 
ppp_pkptr  =  op_pk_get(op_intrpt_sirm()); 
op_pk_nfd_get  (pppjpkptr,  “pid_  h”.&ppp_pid_h); 
switch  (ppp_pid_h) 

{ 

case  Ox(X):  /*  data  fi  ame  */ 
op_pk_nfd_get  (ppp_pkptr,  “Fl->DI_frame”,  &pkptrl); 
op_pk_destroy  (ppp_pkptr); 

/♦  11SEP94  get  ICI  associated  with  FDDI  LLC  frame  */ 

Uejeiptr  =  op.pk_.ici_get  (pkptrl); 

/*  get  the  destination  address  of  the  frame  ♦/ 

/*  16APR94  •/ 

op->ci_attr_get(Uc_iciptr.  “dest_addr”.  &dest_addr); 

/*  check  if  this  frame  destined  for  the  local  bridge  station  */ 
if(dest_addr  ==  station_acld,r) 

{ 

/*  if  it  is.  send  the  packet  to  Uc.sink  directly  ♦/ 

/*  in  order  to  prevent  overhead  of  mac  access  */ 
op,_iCi_install  (llc_icipir), 

op_pk._send(pkp£rl.  LLC_SINK_OUT_STREAM);/*  19APR94V 

) 

else 

/♦  this  preket  is  to  be  sent  to  MAC  •/ 

1 

/♦  determine  the  source  address  of  the  frame  •/ 
op_ici_attr_get(llc_iciptr.  ’‘src_addr",  &src_adclr); 

/*  set  up  an  ICI  structure  to  communicate  parameters  to  ♦/ 

/*  MAC  layer  process  (initialized  in  INIT  state)*/ 

/*  place  the  original  source  address  imo  the  ICI  ♦//*  16APR94  */ 
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/*  ‘‘fddi_mac_req”  is  modified  so  that  it  contains  the  original  */ 

/*  source  address  from  the  remote  Ian 
op_ici_attr_set(mac_iciptrl,  “src_adclr”,  src_addr); 

/*  place  the  destination  address  into  the  ICI  *//*12APR94*/ 
op_ici_attr_set(mac_iciptrl,  “dest_addr”,  dest_addr); 
f*  assign  the  service  class  and  requested  token  class  */ 

/*  At  this  moment  the  frames  coming  from  the  remote  Ian  are  assumed  to  have*/ 
/*  the  same  priority  as  synchronous  frames  in  order  not  to  accumulate  */ 

/*  packets  on  the  bridge  station  mac  and  instead  to  deliver  their  destinations  */ 

/*  as  sot'U  as  possible  */ 

/*  lOSEP^M:  I  don’t  know  why  Selcuk  did  this,  so  ru  leave  the  values  */ 

/*  but  change  to  conform  with  the  new  packet/ICI  formats  */ 
op_ici_attr_set(mac_icipcrl,  “svc_cla£s”,  FDDI_SVC_SYNC); 
opJci_attr_set(mac_iciptrl,  “pri”,  8); 

op_ici_attr_set(mac_iciptrl,  “tk_class”,  FDDl_TK_NONRESTRICTED); 
op_ici_attr_get(mac_iciptrl,  “cr_timc”,  &creation_time); 
cp_ici_attr_set(mac_icipti  l,  “a_time”,  creation_time); 

/*  send  the  packet  coupled  with  the  ICI  */ 
op  Jci  Jnstall(mac_iciptr  1 ); 

op_pk_send(pkptrl,  MAC_I-AYER_OUT_STREAM); 

} 

break; 

case  OxcO:  /*  ppp  control  packet  -  cither  LQR  or  monitoring  pkt*/ 

/*  Since  the  command  link  is  deemed  unjammable,  this  should  */ 

/*  only  be  for  LQR’s.  Simply  delete  them  for  now  until  a*/ 

/*  policy  is  determined  on  how  tc  handle  the  LXJR’s.*/ 
op_pk_nfd.^et  (ppp_j)kptr,  “LQR_iafo",  &status); 
printf  (“LQR  received  at  cp  “); 
swicch  (status) 

case  0:  printf  (“status  GOOD  trend  DOWTS'Sn”); 
case  1;  printf  (“status  G(X)D  trend  UPm’’); 
case  2:  printf  ("status  BAD  trend  DOWNNn”); 
case  3:  printf  (“status  BAD  trend  UI^n”); 

) 

op_pk..dtstroy  (pppj)kprr); 
break; 

default: 

printf  (“ERROR;  packet  rcvd  at  cp:  neither  data  nor  controrsn"); 
break; 

)  /*  end  switch  */ 
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}  /*  end  if  (op_intrpt_type()=OPC_INTRPT_STRM)  &&  */ 

/*  (op_intipCStiin()  =  RECEIVER_IN_STRM))*/ 

/*  otherwise,  it’s  an  IP  dgram.  Find  destination  and  send  *! 

/*  ALL  PAST  THIS  POINT  edited  11SEP94  */ 

else  if  ((op._intipt_type()=OPC_INTRPT_STRM)  &&  (op_intrpt_strra()  == 
IP_IN_STREAM)) 

/*  get  IP  dgram  and  associated  ICI  */ 
ip -Pkptr  =  op_pk_get  (op_intrpt_stnn()); 
ipjciptr  =  opJntrptJciO; 

/*  pul  IP  dgram  in  FDDI LLC  frame  */ 
pkptr  =  (^jpk_CTeate_fmt  (“fd(li_Uc_£r_tq)”); 

/*  Further  explanations  of  this  format  is  in  “llc_src_fddi_tcp”  ARRIVAL  state’*/ 
op  _pk_nfd_set  (pkptr,  “datagram’’.ipj)kptr); 

op_ici_attr_get  (ip_iciptr,  “dest_addr”,  &dest_addr); 
if(dest_addr  >  9) 

1 

/’*  if  it  is,  this  packet  is  to  be  sent  llc_sink  directly  *! 

/*  for  xmsn  to  the  remote  LAN.  The  LLC  frame  must  be’*/ 

I*  also  have  an  ICI,  as  if  the  frame  was  coming  from  the  MAC*/ 
op,.ici_attr_set  (llcjciptr,  “dest_addlr”,  dest_addr); 
op„ici_attr_set  (llcjciptr,  “src_addr”,  station_addr); 
op  Jci_attr_sei  (11c  .iciptr,  “pri”,  0); 
op  JcLattr_set  (llcjciptr,  “a^time”,  op_sim_time()); 

I*  install  LLC  ICI  and  send  frame  to  LLC  sink  *! 
op_ici  Jnstall  (llc_iciptr); 

opj)k_send  (llcjciptr,  LLC_SINK_OUT_STREAM);  /■*18APR94’*/ 

} 

else 

/■*  if  not,  the  packet  is  destined  for  local  Ian,  so  send  LLC*/ 

/*  frame  to  MAC  *! 

{ 

I*  set  up  an  ICI  structure  to  communicate  parameters  to  *! 

!*  MAC  layer  process  (initialized  in  INIT  state)"*/ 

I*  place  the  this  station’s  address  into  the  KH  *11*  16APR94  ■*/ 
op._ici_attr_set(mac_iciptrl,  “src_addr”,  station_addr); 

I*  place  the  destination  address  into  the  ICI  '*//’*  12AFR94‘*/ 
opJci_attr_set(macJcipfrl,  “dest_addr”.  dest_addr); 

I*  assign  the  service  class  and  token  class  LAW  RFC  ITPO"*/ 
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op_ici_attr_sct(mac_iciptrl,  “svc_class”,  FDDI_SVC_ASYNC); 
op_ici_attr_set(mac_iciptrl,  “pri”,  0); 

op_ici_attr_set(mac_iciptrl,  “tk._class”,  FDDI_TK_NONRESTRICTED); 
op_pk_nfd_get  (pkptrl,  “cr_time”,  &creation_time); 
op_ici_attr_set(raac_iciptrl,  “a_Ume”,  creation„time); 


/*  send  the  packet  coupled  with  the  ICI  */ 

op_ici_install(mac_iciptr  1 ); 

op_pk_send  (pkptr,  MAC_LAYER_OlJT_STREAM); 


}  /*  end  else  (if((op_intrpt_type()  =  OPC_INTRPT_STRM)  Si&  */ 
/*(op_intrpt_stnn()  ==  IP_IN_STREAM))  */ 


} 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXIT  (3,cp_fddi_gen_tcp) 


/**  state  (ARRIVAL)  exit  executives  **/ 

FSM.STATU.EXIT.UNFORCED  (1.  state  l_exit_exec.  “ARRIVAL”) 

{ 

} 


/**  state  (ARRIVAL)  transition  processing  **/ 
FSM_TRANSIT_FORCE  (1.  state l_enter_exec, ;) 
/* - */ 


} 


FSM_EXIT  (0,cp_fddi_gen_tcp) 

} 
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void 

q)_fddi  _gen_tqj_svar  (pi's_ptr,var_name,var jp_ptr) 
cp_fddi_gen_tcp_state*prs_ptr; 
char  ’*‘var_name,  **var_p_ptr; 

FIN  (cp_fddi_gen_tcp_svar  (prs_ptr)) 

*var_p_ptr  =  VOS_NIL: 
if  (Vos_String_Equal  ( ‘mac_objid” ,  var_iiame)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_mac_objid); 
if  (Vos_String_Equal  (“myjd” ,  var_naine)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv.  myJd); 
if  (Vos_Strin^Equai  (“station_addr” ,  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_station_addr); 
if  (Vos_String_Equal  (“src_addr” ,  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->3v_src_addr); 
if  (Vos_String_Equal  (“arnval_rate” .  var_name)) 

*var j)_ptr  =  (char  *)  (&prs_ptr->sv_arrival_rate); 
if  (Vos_String_Equal  (“mean_pk_len” .  var_naine)) 
*var_p_ptr  =  (char  ’")  (&prs_ptr->sv_mean_pk_lcn); 
if  (Vos_String_EquaI  (“async_inix” ,  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_async._inix); 
if  (Vos_String_Equal  (“macjciptrl" .  var_name)) 
♦var_p4)tr  =  (char  *)  (&prs  _ptr->sv_mac_iciptrl); 
if  (Vos_String_Equal  (“llcjciptr" ,  var_name)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_llc_iciplr); 
if  (Vos_String_Equal  (“pkptrl”  ,  var_naine)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_pkptrl); 

Four, 

) 


void 

cp_fddi_gen_tcp_dia£  () 

! 

Pat  ket  "‘pkptr,  *ppp_pkptr,  *ip_pkptr,  *mac_frame_ptr; 
int  pklen; 

int  dest_addr; 

int  i,  restricted; 
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int  ppp_pid_h,  ppp_pid_l: 

int  status; 

double  creation_time; 

Id  *ip_iciptr; 

FIN  (q)_fddi  _gen_tcp_diag  ()) 


Four, 

} 


void 

cp_fddi_gcn_tq5_tenninate  () 

{ 

Packet  *pkpu-,  *ppp„plq)tr,  *‘ip_pkptr,  *inac_ffame_ptr; 

int  pklen; 

int  dest_addr; 

int  i,  restricted; 

int  ppp_pid_h.  ppp_pid..l; 

int  status; 

double  a‘eation_tirae: 

Ici  *ip,_iciptr; 


IIN  (cp_idai  _een_tcp_tenuinate  ()) 


POUT; 

} 


Coinpcodft 

cp~f<^di_gcn_tcp_init  (pr..swte_pptr) 
q)_fddi_geH..tcp„siate’'  ♦pr.staie  j)ptr. 

{ 

Slavic  VosT_Cin_Obiypeobtypc  =  OFC_NIL, 
FIN  (cp_fddi_gen  .tf;p..!i)it  (pr_state_pptr)) 
if  (obtype  =  OPr_NII ) 
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{ 

if  ( Vos_Catmem_Register  (“proc  state  vars  (cp_tddi _gen_tcp)”, 
sizeof  (cp_fddi_gen_tqp_state),  Vos_Nop,  &obtype)  =  VOSC_FAILURE) 

FRET  (OPC_COMPCODE_FAILURE) 

} 

if  ((♦pr_state_j)ptr  =  (q)_fddi_gen_tq)_state*)  Vbs  _Catmem_AUoc  (obtype,  1))  ==  OPC_NIL) 
FRET  (OPC_COMPCODE_FAILURE) 
else 
{ 

(*pr_staie_pptr)->ciirrenl_Hock  =  0; 

FRET  (OPC_COMPCODE_SUCCESS) 

} 

} 
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APPENDIX  I 


TCP  RING  0  LLC^SINK  MODULE  CODE 
“cp_fddLsink_tcp.pr.c” 


/*  Process  model  C  form  file;  cp_fddi_sink„tcp.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  defimuons  */ 
#include  <opnet.h> 

#include  “cp_fddi_sink_tcp.pr.h’' 
FSM_EXT_DECS 


/*  Header  block  */ 

/*  Globals  */ 

/*  array  format  installed  20JAN94;  positions  0-7  represent  the  asyncb  priority  levels,  PRIORTITES 
+  1  ♦/ 

/*  represents  synch  traffic,  and  grand  totals  are  as  given  in  the  original.  */ 


#define  PRIORITIES  8  /*  20JAN9+  */ 
#define  XMiri'EK.ONE 

#define  XMnTER_TWO 

#define  XMITTER^THREE 
#define  XMnTER_FOUF. 

#define  IP_OlJT_STPJd 


0/*10MAY94*/ 

1 

2 

3 

4/‘'llSEP94+/ 


static /*05FEB94*/ 

double  fddi_sink_accum_dela)  ■=  0.0; 

static  /*  05FEB94  */ 

double  fddi_sink_accu:.ii_d&lay_afPRIORITIES  +  1]  =  { 0.0. 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0); 

static  /*  05FEB94  */ 
im  fddi_siiik_totaJjpkts  =  0; 
static /*05F’EB94*/ 

int  fddi_sink.jotal_pltts_a[FRIORITIFS  +  1]  =  {0, 0,  0, 0, 0,  0,  0,  0,  0}; 

it>r\  M  u.  / 

*’  / 


151 


double  fddi_sink_fotal_bits  -  0.0; 
static /♦05FEB94*/ 

double  fddLsink_totai_.bits_a[PRIORmES  +  1]  =  1 0.0, 0.0, 0.0, 0.0, 0.0. 0.0, 0.0, 0.0, 
0.0}; 

static  /*  05FEB94  */ 

double  fddi_sink_peak_delay  =  0.0; 

static  /*  05FEB94  */ 

double  fddLsink j)eak_delay_a[PRIORITIES  +  2]  =  { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

0.0): 

static /'’‘05FEB94*/ 

int  fddi_siiik_scalar_write  =  0; 

static  /*  05FEB94  */ 

int  pri_set  =  20;  /*  20JAN94  */ 

static 

int  subqjndex  =  0;  /*  5APR94  */ 

static 

double  buffer[4]={0.0,0.0,0.0,0.0};  /*10MAY94»/ 


/*  statistics  used  for  CDL  throughput  */ 
static /*20APR94*/ 
int  fddilpl..total_pkts  =  0; 
static 

int  fddUpl_total_pkts_a[PRIORrnES  + 1]  =  {0, 0, 0, 0, 0. 0, 0, 0. 0}; 

static 

double  fddilpl_total_bits  =  0.0; 
static 

double  fddilpl_total_.bits_a[PRIORinES  +  1]  =  {0.0, 0.0, 0.0, 0.0, 0.0, 0.0,  C.0, 0.0, 0.0}; 


/*  Externally  defined  globals.  */ 
extern  double  fddi_t_opr  Q; 

/*12JAN94:attributes  from  tlie  Environment  file  */ 
double  Offered_Load;  /*  12JAN94  */ 
double  Asynch_01Teied_I.x>ad;  /*  17JAN94 

/*  transition  expressions  */ 

#defiDe  END_OF_SIM  op_intipt_type()  ==  OPC^  INTRP1'_ENDSIM 

i*  get  pictiue  of  jamming,  this  variable  allows  anyone  who*/ 

/*  is  tvriting  to  the  global  statistic  to  ensure  it  has  */ 

/*  been  initialized.  20AUG94*/ 
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int  jaramer_stats_imt=OPC_FALSE: 
Gshandle  link_gshaiidle[4]; 


/*  State  variable  definitions  “Z 


typedef  strua 
{ 

FSM_SYS_STATE 

Gshandle 

sv_tlmi_gshandle; 

Gshandle 

sv_m_delay_gshandle; 

Gshandle 

sv_eie  .delay  ^gshandle: 

Gshandle 

sv_thru_gshandle_a[  10] ; 

Gshandle 

sv_m_dc?ay_gshandle.,.a[  1 0]; 

Gshandle 

sv_ete_delay_gshandie.,a[9] ; 

Gshandle 

sv._t_gshandle; 

Gshandle 

sv_t_gshandlc_a[  1 0] ; 

Objid 

sv_my_id; 

int 

sv_PPP_seq,_numbei ; 

double 

sv„time; 

Ici=^ 

sv_firoa3_mac_ici_por; 

}  q3_fddi_sink_tcp_state; 

#define  pr_statejptr 
#define  thru_gshandle 
#define  m_dday_^shaadle 
#define  ete_deJ[ay_gshandle 
#define  thru_gslaandle_a 
#fdefine  m_delay^shandle_a 
#defi,ae  cte_delay_gshandle_a 
^define  t_gshandle 
#de£net  _gshandle_a 
#define  my_id 
#define  PPP_  seq_nuniber 
#define  lime 

#define  from_mac_ici_ptr 


((q)_fddi_sinJk_tcp_stats*)  SimI_Mod_State_Ptr) 

pr_sute4)tr->sv_tliru  _gshandle 

pr_stat<;_ptr->sv_m_delay.^shandle 

pr_state_ptr->sv_ete_delay_gsnandle 

pr_state_ptr->sv_thru  _gshandle_a 

pr_siate_ptr->sv_m_delay  _gshandle_a 

pr_statej)tr->sv_ete_delay_gshandle_a 

pr_jiatc_ptr->sv_t_gshandle 

pr_5tate_pir->sv_t_g5haiidie_a 

pr_state_ptr->sv_niy_id 

pr_siate_ptr->sv_P?P_seq_numbfr 

pr_st3tej3tr->sv_time 

pr_siatc_ptr->sv_from_mac_ici.j)lr 


/*  Process  model  interrupt  handling  procedure  */ 
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void 

cp_fddi_sink_tcp  () 

{ 

doubie  delay,  aeat_iiine; 

Packet*  pkptr; 

Packet*  pkptr  1  ;  /*5APR94*/ 

Packet*  ppp_plq)tr;/*15JTJN94*/ 

int  src_adcir,  my_addr; 

int  desi_addr;/*14APR94*/ 

double  fddi_siiik_ttrt: 

int  xmit„subq_index;/*5APR94*/ 

int  load_balance_code:  /*6AI^R94*/ 

im  i,£ubq_.no;  /*25APR94*/ 

int  index; /*10MAY94*/ 

double  link..nion_trans_rate; /*15JUN94*/ 

char  strO[512].  strl  [512];  /*  for  diagnostics*/ 

ini  mon_pkt_si2e;  /*26JUL*/ 

double  sim_duration;  /*26JUL*/ 

Packet*  ipjjkptr; /*USEP*/ 


FSM_ENTER  (cp_fddi_sink_tcp) 

FSM_BLOCK_SWITCH 

{ 

/< - — *! 

/**  state  (DISCARD)  enter  executives  **/ 

FSM_STATE_ENTER_UNFORCED  (0,  staieC_enter,.exec.  “DISCARD”) 

{ 

/*  determine  type  of  interrupt:  10MAY94  */ 
switch  (op_intipt_type()) 

{ 

case  OPC_INlliFT_STAT: 

/*  the  interrupt  is  caused  by  the  transmitters’  status  */ 

[ 

index  =  Gp_inttpt_stat{); 
swiu:h(index) 

{ 

caseXMnTER„ONE: 

{ 

buffer[0]  =  op.,stat_local_read(XMITTER_ONE), 
break; 


154 


} 

case  XMnTER_TWO; 

{  _ 

bufifer[l]  -  op_stat_lrx;al_read(XMnTER_TWO); 

break; 

} 

case  XMnTER_THREE: 

{ 

buffer[2]  =  op_stat_local_rcad(XMnTER_'niREE); 
break; 

} 

case  XMmnER_FOUR; 

f 

buffer[3]  =  op_statJocal_read(XMnTER_FOUR); 
break; 

} 

default; 

{ 

op_sim_end(“***  FDDI-CDL :  FATAL  ERROR’', ’’Unexpected  stat 

interrupt”.””,””); 

} 

} 

break; 

} 

case  OPCJNTRPT_STRM: 

/*  the  interrupt  is  caused  by  the  incoming  packets  V 

{ 

/*  get  the  packet  and  the  interface  control  info  */ 
pkptr  =  op_pk _get  (opJntrpt_stnn  0); 
from_mac_ici_ptr  =  opjntrptjci  (); 

/*  20JAN94:  get  the  packet’s  priority  level,  which  */ 

/*  will  be  used  to  index  arrays  of  thruput  and  delay  */ 

/*  computations.  */ 

op_ici_attr_get  (from_mac_ici_pir.  “pri”.  &pri_sfct);  /*  11SEP94  */ 

/*  determine  lue  time  of  creation  of  the  packet  V 
op_ici_attr_get  (from_mac_ici_ptr.  ‘’cr_time”,  &creat_iiroe); 

/*  llSEP94:detennine  the  destination  address  ol  the  packet  */ 
op_ici_attr_get  (from_mac_ici_ptr,  ‘*dest._addr”.  «fedest_addr); 

/*  llSEP94;detennine  the  source  address  of  the  packet  */ 
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op_ici_attr_get  (from_mac_ici_pti,  “src.addi  A;src_addr); 

/*  7APR94:  deteimine  which  load  balancing  algorithm  is  in  use  ’*/ 
op_ima_obj_atri_get  ( my_id,  “load  balancing  algorithm”,  &load_.balance_ccKle ); 

/*  14APR94  :  also  get  my  own  address  */ 
op_ima_obj_attr_get  (  my_id,  “station_address”,  «&my_addr); 

/*  destroy  the  packet  */ 

/*  op_pk_destroy  (pkptr);  */ 

/*  03KEB94;  ratlier,  enqueue  the  packet.  This  will  be  the  */ 

/*  first  step  toward  developing  a  LAN  bridging  strucnire  */ 

!*  -Nix  */ 

/*  op._subq_pk_insen  (pri_set,  pkptr,  OHC_QP05_  TAIL);  "^1 

!*  14APR94;  che  k  the  frame  passed  to  “11c”  is  destined  for  */ 

/*  this  station.  If  it  is  update  the  local  traffic  */ 

/*  statistics;  if  not,  allocate  the  packets  */ 

/*  to  the  transmitters  since  they  are  destined  for  the  remote  Ian  */ 

/*  update  also  incoming  return  link  statistics  for  the  frames  */ 

/*  which  will  be  queued  in  ilc_sink  to  be  sent  to  remote  Ian.*/ 

/*  -Karayakaylar  */ 

if((dest .  addr  ---  my_addr)&&(src_addr  <  ray^addr)) 

/*  add  in  its  size  */ 

fddi_sink_total_bits  +=  op_pk_total..size_get  (plcptr); 
fddi_sink_totaJ_bits_a[pri.  >et]  +-  op„pk_total.  size_gei  (pjqjfr);  /*  20JAN- 

20APR94  */ 


/*  accumulate  delays  */ 

delay  =  op_sim_tiUie  ()  -  cxeat^tirae; 

fddi_sink_accum_dday  4  -  delay; 

fddi_.';iak_  accum._d!  y„a[prLsctj  4-=  delay;  /*  20J AN-20 APR9‘i  */ 

/*  keep  track  of  p  .ak  delay  value  */ 
if  (del  ay  >  fddi_sink_peak_delay) 
fddi_sink  _4)eak_dclay  =  delay; 

/*  20JAN94;  keep  track  by  priority  levels  as  well  23JAN-20APR94  */ 
if  (delay  >  fddi_sink_peHik_delay.,a[pri_.'?ctJ  ) 
fddi_smk..pcak_delay_a[prLsetJ  =  delay; 
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increment  packet  counter;  20JAN94  */ 
fddi..sink_total._pktS"H-; 
fddi.  .sinlc_total_pkts_a[pri_set]+-t ; 

/*  if  a  multiple  of  25  packets  is  reached,  update  staia  */ 

/*  03FEB94:  [0]->[7j  represent  asynch  prioritier  1->S,  */ 

/*  respectively:  [8]  represents  synchronous  traffic.  */ 

/*  and  [9]  represents  overall  asynchronous  traffic.-Nix  */ 

/*if  (fddi_sink_total_j)kts  %  25  =  0) 

{ 

op_stat_global_write  (thru_gshandle, 
fddi_sink_total_bits  /  op_sim_time  ()); 

op_stat_global_write  (thnj_gshandle_a[pri_setj , 
fddi_sink_total_bits_a[0]  /  op_sim_time()); 

op_stat_global„write  (thru_gshanclle_a[0], 
fddi_sink_total„bits_a[lJ  /  op_sim_iime{)); 

op_stat_global_  write  (thru_gshandle_a[  1], 
fddi_sink_total_bits_a[pri_set]  /  op_sini_time()); 

op„stat_global_write  (thru_gshandle_aI2], 
fddi_sink..total_biK_a[2]  /  op_sim_tiii\e()); 

op_stat_global_write  (thni_gsfaaj?dle_a[3j. 
fddi_sink_total_bits_a[3]  /  op_sim_time()); 

op_stat_global_write  (tbju_gshandle_a[4], 
fddi_sink_total_bits_a[4]  /  op_sim_tirae()); 

op_stat_global_write  (thru  _gshandle_a[5], 
fddi..sink_total_bits_a[5]  /  op_siin.,tinie()); 

op„siat _global_write  (thru_gshandle_a[6j, 
fddi_sink_total_bits..'i[6]  /  op_sim_time()); 

op_sut_global_wnte  (thru_gshandie_a[7], 
fddi_sink_total_bit'i_a[7]  /  op_sim_tirae()); 

op_stat_global..v.Tite  (thru  _gshaadie_aI8], 
fddi_sink_total_bits„a[8]  /  op_sim_timeO); 

*/ 

/*  30JAf'f94;  gather  all  asynch  suts  into  one  overall  figure  */ 
/♦op,.stat_^obal_write  (thru_gshandle_a[9], 
(fddi_sink_iotai_bits  -  fddi_sink,_tota’  '  _a[8])/ 

op_sini_iitne()); 

*! 

/*  (fddi_f^-  ,totaLbits_a[0]  +  fddi_siiik_toiaI_bits_a[l]  +  +/ 
j*  fddi_s,  ^taLbit5_a(2]  +  fddi_sink_totaI_bits_a[3]  +  */ 
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/*  fddi_sink_total_bits_ar4]  +  fddi_sink_totaI_bits_a[,5]  4-  */ 
/*  fddLsink_total_bits_a[61  +  fddj_siiik_total_bits_a[7])  /  V 
/*  op_sim_time());  */ 

I* 

op_stat_global,  write  (m_delay_gshandle, 

fddi._sink_accuin_delay  /  fddi_sink_total_pkts); 

op_stat_global_write  (m_delay_gshandle_a[0] , 
fddi_siiik_accum_delay_a[Oj  /  fddi_.siak_total_pkts_a[0]); 

op_stat_global„write  (m..delay_gsfaaiidie_a[  1] , 
fddLsiiik_accum_dday_a[i]  /  fddi_sjnk_total_plcts.a[l]); 

op„stat_globaI_write  (ra._delay^shaiidle„a[2] . 
fddLsinlc_.accuin_delay._at2]  /  fddi_sink_total_pkts_a[2]); 

op..siat_global_write  (m_de)ay_gshandle_a[3] , 
fddi,_sink_accurn_delay_a[3]  /  fddLsiak_total  jpk.ts_af3]); 

op_stat_global_write  (m_delay_gsliandle_a[4] . 
fddLsink_accum..delay_a[4]  /  fddi_sink_to^al_pkts._a[4J); 

op_.stat,_glob2il_write(ni_delay_gsliandIe_a[5], 
fddi..sink„acciim_de!ay_at5]  /  fddLsink_total_pkts_a[5]); 

op_siaT,_giobai..write(ni_delay.^sha,ndie_af6], 
fddi_sinlc_ac<nJir._dela)'_at6)  /  fddi.  >ink„.total_pkts_aI6,l); 

op„stat_idobal_'ATite  (m.  ,dclay.,itshandle_a[7] , 
fddLsink_,acciun_dday_a[7J  /  fddLsinlc_total_pkts_a[7]); 

op_stat„global_vmie  (in_delay_gshandle_at8]. 
fddLsink_accum_deIay„a[8]  /  fddi  sink  .total  pkts  a[8]); 

*! 

/*  30JAN94;  gathex  all  asynch  stats  into  one  figure  ’'/ 
/*op_stat..global_wri  te  (m_de\a>  _gsbandlc„a[9] , 
(lddi_sin.k_accum..delay  -  fddi_  sinl:_accum_  delay_af8])  / 
(fddi_sink_total_pkts  -  fddi_sink_total_pkts_aI8])); 

’V 


/*  (fUdi..sinlc_accuiE_delay_a[0]  +fridi_  ;ink_accun[i_.delay..a[l]  +  */ 
/*  lddi..sink_accum.  dday_at2]  +  fcdi_sink_accum_(lelay_a[3]  -t-  */ 
/*  fddi_.sink_accum_dd9y_a|4]  fddi_siiik_accuin_delay_aI5]  4  */ 
/*  fddLs>>ik_accura_dclay_a|61  +  fddi.sink.accum.  delay_a[7])/  */ 
/*  (fddLsink_total_picis_aIO]  +  fddi_sink.,{otaljpkis_a[  1)  4  *! 

/*  fddLsink_total_.pkrs_a[2]  4  fddi_sink_toial_pkts_ai3]  4  */ 

/*  fddi_sink_»ial...pkLS_a[4]  4  fddi_sink_total. jpkts  .a[5]  4  V 
/*  fddLs,irik_total.j)te_a(6J  ^  ldui..sink_total_pkts.  al7])); 
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/*  also  record  actual  delay  values  *! 

/’'op_stat_global_write  (ete.  delay _gs}iandle,  delay): 
op._stat.^obal_write  (ete_delay_gshaDdle_a[pri_setJ,  delay); 

} 

*/ 

}  /*  end  of  if(dest_addr  =  my_addr)&&{src_adclr  <  my_acidr)  statement  */ 

/*  20ArK^H:  clieck  the  frame  passed  to  “11c”  is  destined  for  remote  Ian  */ 

/*  This  will  allow  only  the  packets  to  be  counted  fo)  CDL  traffic.*/ 

/*  -Karayakaylar  */ 
else 
{ 

/*  add  in  its  size  */ 

fddilpl..total_bits  op_pk_total..size_get  (pkptr); 

fddilpl_total_bits_a[pri_set]  op_pk_total_size_get  (pkptr);  !*■  20APR94  */ 

/*  increment  packet  r  o.mter;  20APR94  */ 

fddUpl  joial_pkts-H-; 

fddilp  l_total_pkts_a[pri_set]-H ; 

/*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

/*  [0]->[7]  represent  asynch  piiorities  1>8,  */ 

/■*■  respectively;  [8]  represents  synclirouous  uaffic,  V 
/*  and  [9]  represents  overall  asynchronous  traffic.-Nix  */ 

/*if  Tddilpl_total_pkts  %  25  -=  0) 

{ 

op„.stai.^obal.  write  (t.gshandle, 
fddilpl_total_bits  /  op_sim_time  ()); 

op_s  tat_global._wri  te  ( t,  .gs  ha;!dle_a  lpri_set] , 
fddiipl_total_bits_a[0]  / op_siin..ume()); 

op_stat_giobal_write  (t_gshandle_a!0], 
fddilpl_totaI_biis_a[l]  /  op_sim_ume()); 

op_stat  _global..v.Tite  (t_gshandle_a(  1  ], 
fddilpl_toial_biis.  a[pri_sct]  /  op_sini_umeOy; 

op_stat_jjJobal_write  ((ji5handJe_a[2i, 
fddilpl_totai  .biis_a[2]  /  op_rirn_ume()); 

op_stai_gl  obai_writc  ( t_gshandl  e_a[3 1 . 
fddiipl_total..bits„af3J  /  op..sim_ui  tet)) 
op,_stat_global_write  ( t_gshatidle_a  [4] , 
fddilp  1  ._total_bit.s_  ?  [4]  /  op.  .sjm_,ume()) 
op  „stat_globai_write  (t_gshdnd]c_a[53 , 


fddUpl_total_bits_a[5]  /  op_sim_time()): 

op.  stat_global_write  (t_gshandle_a[6], 
fddilpl_tota'_bits_a[6]  /  op_sim_time()); 

op_stat_global_write  (t_gshandle_a[7], 
fddilpl_total_bits_a[7]  /  op_sim_time()); 

op_stat_global_.write  (t_gshandle_a[8], 
fddilpl„total_bits_a[8]  /  op_sim„time()); 

*! 

/*  gather  all  asynch  stats  into  one  overall  figure  */ 

/*op„stat_global_write  (t.  jshandle_a[9] , 

(fddilpl_total_.bits  -  fddilpl_total_bits_a[8])  / 
op_sim_time()); 

*1 

/*  (fddilpl_total_bits,.a[0]  +  fddilpl_total_biis_a[l]  +  */ 

/*  fddilpl_total_bits_a[2]  +  fddilpl_total_bits_a[3]  +  */ 

/*  fddilpl_*;otal_bits_a[4]  +  fddilpl_total_bits_a[5]  +  */ 

!*  fddilpl_total_bits_at6]  +  fddilpl_total_bits_a['7])  /  */ 

/*  op_sim_time()};  *! 

I*  }if  (fddilpl_total_pkts  %  25  =  0)  *! 

}  /*  end  of  else  if(dest_£Jdr  =  iny_addr)&&(src_addr  <  my_addr)  statement  */ 

/*  Frames  coming  to  cp„smk  only  go  to  this  station  or  CDL 11SEP94*/ 
if  (dest..addr  =  mv_addr) 

{ 

/*  send  packet  to  IP  layer  */ 
op_pk_nfd_get  (pkptr,  “datagram”,  «feip_pkptr); 
op_pk_destroy  (pkptr); 
op_pk_send  (ip_pkptr,  IP_OUT_STRM); 

} 

'i  se  /*  send  to  the  CDL*/ 

I 

/*  1 1SEP94:  first  step  is  to  take  IJX  ICi  inat  was  sent  with*/ 

/*  frame  and  attach  directly  to  LIX  fiame  instead  of  event*/ 

/*  This  is  necessary  because  LLC  frame  doesn't  have  all  req’d  info  */ 
op_pk_ici_set(pkptr,  from_mac_icij)tr); 

/*  15jrUN94 ;  befoi  e  allocating,  encapsulate  the  FDDI  frame  into  a  PPP  packet  */ 
ppp_plq)tr  =  op..pk_aeate_fmi  (“ppp_ml”); 
op_pk_nfd_set  (i)pp.,pkptr,  “se<i.  .number”,  PPP.  seq_nuniber+ f); 
op_pk_nfd_set  (ppp_pkptr,  "FDDI_.frame”,  pkptr); 
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/*  14.4PR94  lallocate  che  packets  to  llc_sink  subqueues  */ 


!*  6APR94  -K&rayakayiar*/ 

/+  check  if  load  balancing  algorithm  is  circular  *i 
/*  zero(O)  is  the  circular  load  balancing  code  */ 
if  (load_balaace_code  —  0) 

{ 

/*  5APR94  */ 

/*  Apply  load  balancing  to  insert,  the  packets  in  the  ’*/ 

/*  subqueues,  in  a  circular  order  */ 
siibq.  no  =  subq_indfc.;  %  4; 

op_subq_pk_iasert(sub(i_no,  ppp_pLptT.  OPC..QPOS_TAIL);  /*15JUN 

altered  to  send  ppp"*  / 

subq_incex++; 

} 


I*  25APR94  *! 

/f  check  if  load  balancing  algorithm  is  empty  allocation  *! 

/*  one(l)  is  the  empts'  ailt  cation  load  balancing  code  */ 
if  (load.  baj  aaix_c(xle~=  1) 

( 

/*  Apply  load  balancing  to  inssa  the  packets  in  the  */ 

/*  subquetic-.s  by  choo.sing  the  subqueue  which  has  the  maximum  current  */ 
number  of  free  packet  slots  */ 

subq_no  =  op_subq_index_map(OPC  .QSEL_MAX.FREB.  PKSIZB); 
op_subq_pkJnsen(subq_no,  ppp_pkpcr.  0PC_QP0S..TA1L);  /*I5JUN 

altered  to  send  ppp*/ 

} 


}/*else  if(dest_audr  =  my^acldr )  statement  */ 
break; 

}/*  end  of  case  OPC_INTRPr._STkM  statement  V 
case  OPC_l^^RPT_SELF;  /♦27JUL94V 

/*  if  it  is  a  sclf-intemipt.  it  is  ume  to  send  a  monitoring  packet.  Send  one.  */ 

I 

ppp_pkptr  =  op_pk_creaic_,fnit(“ppp’*). 

op_pk_nfd_set  (ppp_pkptr.”pid.  h”.0.xc0); 

op._pk_nfd„v:t  (p!)p_pkptr,’  pidj”,0x2  Is, 

op_unri_obj_attr_get  (my_id,”moni teeing  pkt  size”,  &rnon_f;k(.  size); 

op_pk_buJk  .r,ize_set  (pppjpkpor.  ruon_pLt_si.ze); 


ifcl 


if  (load_balance_code  ==  1) 

{ 

subq_no  =  op_subq_.inclex_raap(OPC_QSEL_MAX_iT?lifi  _PKSiZE); 
op_subq_pk_in5ert  (subq_no,ppp_pkptr.OPC_Q?OS_TAII.); 

} 

else  if  (load_balance_code  ==  0) 

( 

subq^no  =  siibq_index  %  4; 

op._subq_pk_iusert  (subq_DO,ppp_pkptr,OPC„QPOS_TAIL); 
subqjndex-t-+; 

} 

break; 

} 

}/*  end  of  sv/itch  *1 


/*  check  it  each  subqueoe  is  not  eraptv  and  iraasmitter  is  not  busy  *! 

/*  iiregardless  if  an  intemtpt  is  received  o:  not  J  AUG9^  V 
for  (xiaii_subq_iridex  ==  0;xmit_subq_index  <“3;  ++-xmit„subq_index) 

t 

1 

if  ((!op_subq._empty(xmit„subq_index))&&(buiyer[xmii_5ubq._index]  == 

t 

/^access  the  first  pavsket  in  the  subqueue  */ 

pkijtrl  =  op  subC|_pl:._remove  (xmit_subq_index,  OP(.7_QFOS_I-tEAD); 
/*  forward  it  to  ifie  destination  xmiiter  */ 

/*'  associated  with  the  subqueue  index  */ 

C'p..pk_seiKl  (pkptri,  xniit_su’oq  .index  ); 

/’■'if  ( op_sim_.(iebug(  )--ti)P<'r_TRljE) 

pririd  (  packet  sent  to  cpxinu  from  subqueue  %d\i:”.xn  it_subq_inuex);'^/ 

} 


/**  biofiking  after  enter  executives  of  unforced  siaie.  “*/ 
FSM^EXIT  ( !  .cp_fdd.Lsini„tq» 


state  (DISC/'VRD)  exit  executives  '**/ 

FSM„STA'<1^.  EXIT_UNl<ORCED  '0,  stateCLexii_cxec.  “DISCARD’b 

{ 
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} 


/**  :-U»L?  (DISCARD)  transition  pr^x^essing  **/ 
FSht_rNnT_COf4D  (fiND_OFLSIM) 
rSM_DHJ’_COND 
FSMjrEST  LOGIC  (“DISCARD”) 

FSM,_TRANSrr_.SWITCH 

{ 

FSM_CA*SE_TR.ANSrT  (0, 1,  state l_enter„exec, ;) 
FSM_CASE_TRANsn'  (1.0.  state0...enter_cxec, ;) 
} 

/*— . . . 


I**  st£te  (STATS)  enter  executives  **/ 

FSM_STATE_ENTER„UNFORCED  (1.  statel,  enter_exec,  “STATS”) 

i 

/*  At  end  of  simulation,  scalar  performance  statistics  *! 

/*  tmd  input  parametcis  are  written  oat.  */ 

op_stat_scalar..writc  (“FL  Throughput  (bps),  Priority  1”, 

fddiii.pl. _total_bits_a(0]  /o?.siin_time  ()):  /*20APR94*/ 

op_stat_scalar„ write  (“.FL  Throughput  (bps),  Priority  2”, 
fddilpl_total_bits_a[l]  /  op_sim„tinie  (;}; 

op_staL  scalar_write  (“RL  Throughput  (bps).  Pr  iority  3”, 
fddiilpl_toiai_.bits..a(2J  /  op_sim„tfu.'ie  ()); 

op_si3t_sc.a.lar.,>Tite  (“RL  Throughput  (bps).  Priority  4", 
fddilpl..tctai_  bits_a[3J  /  op_siin_tiiae  v)); 

op_stat„scalar..wriie  (“RL  Tltroughput  (bps).  Priority  5”. 
fddilpl_totaLbiis_al4]  /  op_sim_time  0). 

op_siai...scaiar..write  ( ‘RL.  Throughput  (bps).  Priority  6”, 
fddiip  i_.W)tal_biLs_.a[5  j  /  f;p.  ..siin_iime  ()); 

of.'_sia\;_.scalar„writc.  (‘TIL  Throughput  (bps).  Priority  7”, 
fddilpi  total,  bits_al.61  / op  ,sim_tiuic  O)' 
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op_stat_sc8lai_write  (“RL  Throughput  (bps),  Priority  8”. 
fddilpl_total_bits_a[7]  /  op_si»n_time  ()); 

op_stat_sc5lar_.write  (“RL  Throughput  (bps).  Asynchronous”. 
(fddilpl_totaJ_bits  -  fddilpl_totai_bits_afS])  /  op_siin_time  ()); 


/*  (fddilpl_total_bits_a[0]  +  fddilpl..toial.  bits_a[l]  +  */ 
I*  fddilpl_total_bits_a[2]  4-fddilpl_total  .  ,bits_a[3]  t-  */ 
I*  fddilpl_total_bits,.a[4]  +fddUpl_total_bits_a[5]  +  */ 
/*  fcidilpl_total_bits_a[6]  +  fddUpi_total_bits_a[7])  /  */ 
/*  op_sira_time  ());  *1 


op_stat_sca]af_vvTite  ( 'RL  Throughput  (bps),  Synchiouous”, 
fddilpl_total_bits„a[8]  /  op_sim_time  ()); 

op_stat_scalar.,.write  (‘RL  I’hrougliput  (bps).  Total”, 
fddilpl_total_bits  /  op._sira_time  ());  /*20APR94*/ 


/*  Only  one  station  needs  to  do  this  *! 
if  (!fddi_sink_scalar_write) 

{ 

/*  set  the  scalar  write  flag  */ 
fddi_sink_scalar_write  =  1; 

op_stat„scalar_write  (“Mean  End-to-End  Delay-0  (sec.).  Priority  1”. 
fddi_3ink_accuii}_delay_a[0]  /  fddi_siuk_iutai_pkts_a[0]); 

op_stat_scalar_wriie  (“Mean  End-to-End  Delay-0  (sec.).  Priority  2”, 
fddi_sink_accum_delay_a(l]  /  fddi_sink_total_j»kts_a[l]); 

op_.stat_scalar_write  ("Mean  End-to-Ead  Delay-0  (sec.).  FTiority  3”. 
fddi_sink_acciiin_delay_a[2]  /  fddi_sink_total_pkts_.a[2]); 

op_stat„scalar_write  (“Mean  End-to-End  E>elay-0  (sec.).  Priority  4”. 
fddi_.si]0ik_accum_delay_a[3]  /  fddi_siult_total_pkts_aI3]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay-0  (sec.),  Prioritj'  5”, 
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fddi_siiik_acciini.  delay  _a[4]  /  fdcii_slnk_toialji)kts_a[4]); 

op_stat_scalar_\v'rjte  (“Mean  Eno-to-End  Oelay-O  (sec.).  Priority  6”, 
jddLsink_accum._delay._a[5]  /  fd<!i_sink_total_pkts._a[5]); 

op.,stat_scalaT_'v;itc  End-to-End  Delay*0  (sec.),  Priority  7”, 

fddi_sink_accam.  delay..  a[6j  /  fddi_sink_total_pKts_a[6]); 

op_stat_scalar_‘jvTite  (“Mean  Fad-to-EnJ  Delay-0  (sec.),  Priority  8’’, 
fddi_sink_accimi_deiay_al7] !  fddi_sink._total_pkts_a[7]); 

op_stat_scalat_writc  (“Mea.w  E!id-to-,find  Delay- 0  (sec.).  Asynchronous’’, 
(fddi_siuk_accutn..dt'lay  -  fddLsirik..accara..dslay_a[8])  / 
(fddi_sink_total_pkts  -  fddi_,s!nk_to'ial.pkis_a[8])); 

/*  (fddi_sink_accum_delay..a[0]  ■»-fddi_sit'k..a.tcuni_delay_a[l]  +  */ 

/*  fddi_sin.k_acaim..delay_a[2.]  fddi_sink..accam_c!eiay„a[3]  +  */ 

/*  fddi_siDk_accum_.delay„a[43  +  fddi_sink_accum„.delay_a[5]  +  */ 

/*  fddi_sink_accum_deley.  a[6i  +  fddi_smli:_accuTn_delay_a[7])  / 

/*  (fddi_sink_total..pkts_a[01  -hfcldi„sink...loia3...pkTs_a[rj  +  */ 

/*  fddi_sink_total_pkts_a[2.1,  -4-  •iddi_s>ak_.fo!K)...pkLs_al3]  ■«-  */ 

/*  fddLsink„tota]..pk;;5_a[4]  ■t-l<ldi_smk_toinl..pk:£s_a[.51  4-  */ 

/*  fd(li_sink_to£al,..pkULa[6j  +  iddi..sixxk_total._pkts_Rt7J));  */ 


op_stat_scalar_write;  (“Mtan  Eud-to-End  Delay-O  (sec.),  Synchtonons”, 
fddLsink_accum„deiay_3|.S]  /  fddi,.siDk_totai,.pIi:is_a[8]); 

op_stat_scalaf„wiite  (“Me/m  Ead-to*End  Delay-O  (.sec ),  Total”, 
fddi_sink_accuni„dday  /  fddi_3iiik._total.4)kts); 

op_stat_scalar_v,Tite  (“Ttrcugltput-C  (l)p.s).  lYsoriiy  1”, 
fddi_sink,.total_bit>_afOJ  /  op„siin_time  ()); 

op„stat_scalar_vnite  (“Througlbput-0  (bps).  Priority  2”, 
fddi._siiik_total„biti._fii  IJ  /  op_sim_iiroe  ()); 

op_stat_scaiar_(*Tite  (“'i'h.'oughpuM;  (bps).  Priorivy  3”. 
lddi_sink^.total..bits_2l2]  /  op_simjinie  ()); 

op.,stat_scaiaj_write  (“Thiouf.lipiii-0  (bps),  Prioiiry  4”. 
fddi_.3/nk_total_biL‘:_a[3j  /  op_siiii...tinjc  ()); 
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op_stat_scalar_write  (“Throughput-0  (bps).  Priority  5”. 
fddi_.sink_total_bits_a[4]  /  cp_sim_time  ()); 

op_stat_scalar_write  (“Throughput-0  (bps).  Priority  6”, 
fddi_sink_total_bits_at5]  /  op_sim_time  ()), 

o,»„stat_scalar_write  (“Throughput-0  (bps).  Priority  7”, 
i'ddi_sirik_tctal_bits_a[6]  /  op_siin_time  ()); 

op_stat.  scalar_write  (“Throughput-0  (bps).  Priority  8”, 
fddi_3iiik_total_bits_a[7J  /  op_sim_time  ()). 

Oj)_stat..sc;aiar_write  (“Throughput-0  (bps).  Asynchronous”, 
(fddi_sinlc_total_bits  -  fddi_sink_total_bits_a[8])  /  op_sim_timc  ()); 


/*  (fddi_sink_total_bits_a[0]  fddi.  sink_total_bits_a[l]  •+•  */ 
/*  fddi_sink_total_bits_a[2]  +  fddi_sink„total_bits_a[3]  +  */ 
/*  fddLsink_total_bits_a[4]  +  fddi_sink_total_bits_a[5]  +  */ 
/*  fddLsink..total..bits_a[6]  +  fddLsink_total_bits_a[7])  /  *i 
/*  op_sim..titne  ());  */ 


op_stat_sca]ar_write  (“Throughput-0  (bps).  Synchronous”, 
fddi_sii±_total_bits_a[3j  /  qp_sim_time  {)); 

cp_stat_  scalar  _write  (“Thioughput-0  (bps).  Total”, 
fvidi_sink_total_bits  /  op_sim_time  ()); 


op_.stat_ocalar_  write  (“Peak  End-to-End  Delay-O  (sec.),  Frioriiy  i”, 
fddi_siiik.4)eak..delay_i5tO]); 

op_stat_scalar..write  (“Peak  £nd-to-End  Dday-0  (sec.),  Priority  2”, 
fddLriink_peak_delay_a[  1  ]); 

op_stat_scal.'ir_write  (“Peak  End-to-End  l>elay-0  (sec.;.  Priority  3”. 
fddi_siak„pcak_dday_a[2J), 

op_siat..scalaf_write  (“Peak  Eud-to-End  Delay-0  (so;.).  Priority 
fdd[i_sinkjpeak_deiay_a[3]); 
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op_stat,_scalar_write  (“Peak  fiiid-io-End  iMaj'-O  (sec.).  Piiority-  5”, 
fddi_sink_peak_delay_a[4]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay -0  (sec.),  rnoriry  6", 
fddLsink_peak_delay_al5]); 

op_,stat_soalar_write  (“Peak  Ead-to-Ead  Delay-0  (sec.),  Priority  7”, 
fddLsink_peak_delay_.a[6]); 

cp_stat_scalar_write  (“Peak  End-to-Ecci  Delay-O  (sec.),  Priority  8”, 
fddLsink_peak.delay_a[7]); 

op_stat_scalar_write  (“Peak  Ei\d-to-End  Deiay-O  (.vcc.),  Syachronous”, 
fddi_sink_peak._delay  _a  [8] ) ; 

op_stat_scalar_w'rire  (“Peak  hnd-to  End  Msy-O  (sec.),  CK'craU”, 
fddi_sink_peak_dday); 


/*  Write  the  TTRT  value  for  ring  0.  Ihis  preseivesV 
/*  the  old  behavior  for  single-ring  siraiilaiiom.  V 
op_stat_scalar_write  (“TIKT  (sec.)  -  King  0”, 
fddi_t_opr  [0]); 

/*  12JAN94;  obtain  offered  load  inl'onnation  from  tt>e  Enviroument  */ 
j*  file;  this  will  be  used  to  provitie  ab.scissa  information  tliat  '7 
!*■  can  be  plotted  in  the  Analysis  Editoi  (see  “fddi_sink”  STATS  *! 

!*■  state.  To  the  user:  it’s  your  job  to  keep  ibese  cuiTcnt  in  *! 

I*  the  Environment  File.  -Nix  */ 

op_ima_sim_attr_get  (OPC_IMA_DOUBLE,  “total_off  er6d_.ioad_0”, 
&Offered_Load); 

op_Lma_sim_attr_get  (OPC_IMA_DOUBLE,  “asynch_ofi’crcd_load_0’’, 
&Asynch_Offered_Load); 


/*  12JAN94:  write  the  total  offered  load  for  this  run  */ 
op_stat_scalar_write  ("Total  Offered  lx>ad-0  (Mbps)”, 
Offered_Load); 

op_stat_scalar_write  (“Asynchronous  Offered  Load-0  (Mbps)”, 
Asynch_Offered_Load); 

} 

} 
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/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXrj'  (3,cp_fdcii_sink_  tcp) 


state  (STATS)  exit  executives 

F3M_STATE_EX1T_UNF0RCED  (1.  statel_exit_exec.  “STATS") 

{ 

} 


/**  state  (STATS)  transition  processing  **/ 
FSM_TRANSIT_NflSSLNG  (“STATS”) 

/* - */ 


/**  state  (INTT)  enter  executives 

FSM_STATE_ENTER_FORCED  (2.  state2_enter_exec,  “INIT’) 

{ 

/*  get  the  gshandles  of  the  global  statistic  to  be  obtained  *i 
/*  20JAN94;  set  array  format  *■! 

I* 

thru_gshandle_a[0]  =  op_stat ^obal_reg  (“pri  1  throughput-0  (bps)”); 
thru _gshandle_a[l]  =  op_stat,  jlobal_reg  (“prl  2  throughput-0  (bps)”); 
thru_gshan(ile_a[2]  =  op_stat _global_rcg  (“pri  3  throughput-0  (bps)”); 
thru _gshandle_a[3]  =  op_stat _global_reg  (“pri  4  throughput-0  (bps)"); 
thru _gshandle_a[4]  =  op_stat_global_reg  ("pri  5  ihroughput-0  (bps)”); 
thru  _gshandle_a[5]  =  op_stat _global_reg  (“pri  6  ihroughput-O  (bps)”); 
thru _gshanclle_a[6]  =  op_stat _global_reg  (“pri  7  throughput-0  (bps)”); 
thru _gshandie_a[7]  -  op_stat_global_reg  (“pri  8  throughput-0  (bps)”); 
thru _gshandle_a[8]  =  op_stat _global_reg  (“synch  throughput-0  (bps)”); 
thru_gshan(lie_a[9}  =  op_stat_global_reg  (“async  throughput-0  (bps)”); 
thru _gshanclle  =  op_stat_global_reg  (“total  throughput-0  (bps)”); 

m_delay_gshandle_a[0]  =  op_stat_global_reg  (“pri  1  mean  delay-0  (sec.)”); 
m_delay._gshandle_all]  =  op_stat^obal_reg  (“pri  2  mean  delay-0  (sec.)"); 
m_delay_gshandle_a[2]  =  op_stat_global_reg  (“pri  3  mean  delay-0  (sec.)”); 
m_delay_gshandle_a[3]  =  op_stat_globa],  reg  (“pri  4  mean  delay-0  (sec.)”); 
m_delay_gshandle_a[4]  =  op_stat_global_reg  (“pri  5  mean  delay-0  (sec.)”), 
m_delay_gshandle_a[5]  =  op_stat_global_reg  ("pri  6  mean  delay-0  (sec.)”); 
m_dela',  _gshandle_aI6]  =  op  stat  ,global_reg  (“pri  7  mean  delay-0  (.■ssc  )”): 


168 


.•:i_delay_gshandle_a[7]  =  op_stat_giobal_reg  (“pri  8  mean  delay-0  (sec.)”); 
m_del3y_gshandle_a[8]  =  op_st2t_global_reg  (“synch  mean  delay-0  (sec.)”); 
m_delay_gshandle_a[9]  =  op_stat_global_reg  (“async  n:.ean  delay-0  (sec.)”); 
m_  delay_gshandle  =  op_stat _global_reg  (“total  mean  delay-0  (sec.)”); 

ete_delay_gshandle_a[0]  =  op_stat_global_reg  (“pri  1  end-to-end  delay-0  (sec.)”); 
ete_delay_^shandle„a[l]  =  op_stat _global_reg  (“pri  2  cnd-to-end  delay-0  (sec.)”): 
ete_delay _gshandle_a[2]  =  op_stat_global_reg  (“pri  3  end-to-end  delay-0  (sec.)”); 
ete_delay _gshandle_a[3]  =  op_stat_global_reg  (“pri  4  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle_a[4]  =  op_stat_global_reg  (“pri  5  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  end-to-end  delay-0  (sec.)”); 
ete_delay _gshandle_a[6]  =  op_stat_globaLreg  (“pri  7  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle_a[7]  =  op_stai_globa]_reg  (“pri  8  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle_a[8]  =  op..stat_global_reg  (“synch  end-to-end  delay-0  (sec.)”); 
ete_delay_gshandle  =  op_stat_global_reg  (“total  end-to-end  delay-0  (sec.)”); 

t_gshandle_a[0]  =  op_stat_global_reg  (“pri  1  RL  throughput  (bps)”); 
t_g.shandle_a[l]  =  op_stat_global_  reg  (“pri  2  RL  throughput  (bps)”); 
t_gshandle_a[2]  =  op_stat_global_reg  (“pri  3  RL  throughput  (bps)”); 
t _gshandle_a[3]  =  op_stat_global_reg  (“pri  4  RL  throughput  (bps)”); 
t_gshandle_a[4]  =  op_stat_global_reg  (“pri  5  RL  throughput  (bps)”); 
t._gshandle_a[5]  =  op_stat_global_reg  (“pri  6  RL  throughput  (bps)”); 
t_gshandle_a[6]  =  op_stat  jdobal_reg  (“pri  7  RL  throughput  (bps)”); 
t_gshandle_a[7]  =  op_stat.^obal_reg  (“pri  8  RL  throughput  (bps)”); 
t_gshandle_a[8J  =  op_stat_global_reg  (“synch  RL  throughput  (bps)”); 
t_gshan(ile_a[9]  =  op_stat__global_reg  (“async  RL  throughput  (bps)  ’); 
t_gshandle  =  op_stat _global_reg  (“total  RL  throughput  (bps)”); 

*/ 

link_gshandle[0]  =  op .  stat_global_reg  (“Link  0  jamming”); 
link_gshandle[l]  =  op_stat  _global_reg  (“Link  1  jamming”); 
link _gshandle[2]  =  op_stat  _global_reg  (“Link  2  jamming”); 
link_gshandle[3]  =  op_stat_gIobal_reg  (“Link  3  jamming”); 
jammer_stats_init  =  OPC„TRUE; 

subq_no  =  0; 

/*  7APR94;determine  id  of  own  processor  to  use  in  finding  */ 

/*  load  balancing  attribute  and  station  address  of  the  bridge  node  */ 
myjd  =  op_id_self(); 

/*  15JUN94:  get  rate  for  link  monitoring  packet  transmission  */ 
op_ima_obj_attr_get  (my_id.”link_monitor_trans_riite”,  <fclink_roon_trans_rate ); 
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1'-^  26jlJL94:  get  duration  of  the  simulation  */ 

op_ima_sim_attr_get  vOPC_IMA_DOUBLE,  “duration”,  &sim_dii ration):. 

/*  26JLIL94;geiicrate  a  self  interrupt  at  each  time  that  a  monitoring  packet*/ 
/*  is  to  be  sent.  Since  these  packets  are  to  be  sent  at  a  fixed  terate  (per  */ 

/*  second),  the  only  way  to  guarantee  packet  generation  in  this  event  */ 

/*  driven  simulation  is  to  create  an  interrupt  at  the  appropriate  siin  */ 

/*  times.  These  interrupts  will  cause  a  mouiiorin;*  packet  o  be  sent  *! 

/*  through  the  discard  state.*/ 

for  (time=  op_.sim_tiine(),  uine<=sim_durauon;  iiinfj+-liiii._  moiLnaru  _.rate) 

{ 

op_intrpt_schedule_self  (time,  0xc021). 

} 

/*  1 1SEP94:  create  an  ICI  to  attach  to  all  LLC  irariier,  transiting  */ 

/*the  CDL.  Though  the  LLC  frames  wUI  be  ericap.SLil3ted  in  I'PP,  */ 

/*the  ICI  v/ill  be  associatetl  with  the  LLC  frame  and  will  remain  */ 

/*intact  until  gotten  before  the  LLC  frame  is  sent  to  the  MAC  */ 
fiom_raae_ici_ptr  =  op_ici_creatc  (“fddi_mac_ind_tcp”), 

} 


/**  .state  (INIT)  s  .executives**/ 
FSM,.STATE_EXri'..I'OLCl'D  siaic2_exit.  exec,  'iNIT’) 


/**  state  (iND  )  transition  prrxrssmg  **/ 
FSM_IMT_COND  (ENt)_OL_S  1 M ; 
i^SM^DITllCOND 
rf;M_TT:sT_LC)Gic  c  ir  w') 

Fb  M  T . Aiv  b  IT_.S  Yn  TC 1 1 

{ 

rSM^CASECllCuN irr  (O,  l.staicCenicr.cxcc. ;) 
I'b  M^L.ASE.  I’L/vNSrT  (1,0,  st.ntcO_enicf_exec. ; ) 
} 

.  . - . */ 


} 


FSM_EXrr  (2.cp_fddi_sink_tq)) 

} 


void 

q)_fddi_sink_tq)_svar  (prs_ptr,var_nai3ie,var_p_ptr) 
q)_fddi_siiik_tcp_state*prs_pti; 
char  *var_naine,  **var_p_pif; 

{ 

FIN  (cpJddLsiuk_tcp_svar  (prs_ptr)) 

*var_p_ptr  --  VOS_NIL, 

if  f  Vos_Striiig_Equal  (■‘thru_gshaiidle”  ,  var_namc)) 

*var_p_ptr  =  (char  *)  (&pr.s_ptr->nv_thru_gsliandle); 
if  (Vos_String_E(iual  (“m_dclay  _gshandle” ,  var_name)) 
*var_p_ntr (char  *)  (($cnrs_pp->sv_ii_d.elay  .gshandie); 
il  (Vos_Siii'ig_Equal  (“ete_dclay.^:>haiidle” .  var_name)) 

*  var_p_pti  =  (chai  " )  (<!kprs_ptr->sv_eie_delay .gshaudle); 
if  (Vos_String_Equai  (“thru_gshaiidle_d'’ ,  vai..Dajne)) 

*varjD,_ptr  =  (char  *)  (p  . jjtr->sv_thru_iishaudle_a); 
if  (Vos._Strini'  .Edual  (“m_delay_gshandle_a‘’ .  var_nanj€)) 
■^var_p_j’'  c  (char " )  (prs_pu->sv_m_d2lay_t;shandic_a); 
if  (Vcs_f»tring_Equal  (“cic..delay_gshajndie_a"  ,  Viir_name)) 
*var_p_ptr  -  (char  *)  (prs_ptr  >sv_ete_del8y.^.shandle_a), 
if  (Vos..String  l  ^wal  ('‘t_gshan(llc”  ,  v?r_natnc)) 

”  vai_p_pu  -  (chuj  (<Kprs_pir->sv_t_gshan(;iei; 

if  (Vos_Siring_liqual  (‘‘t_gshaiid]e_8'’ ,  var_nanie)) 

*var_p_ptr  =  (char  *)  (prs_ptr->sv_t _gshan<iie_a); 
if  (Vos_Sijing,_FquaJ  ('‘my.  id" ,  var_nafne)) 

*va/_p_ptr  =  (char  *)  (&pr5._ptr->sv_niy_id), 
if  (Vos_String_F,qual  (“PPP_seq_r'-uinber”  ,  var_namc)) 

’vaij)  j)tr  =  (ciiar  *)  (&prs_pir->sv_PPP„scq_numbcr); 
if  ( Vos_Siring_Frjua!  (‘  tiLu  ' .  var_name)) 

*var_p,  j)tr  =  (char  *)  (&.prs_pir-'>sv_time); 
if  (Vo!,_  Strings  Equal  (‘‘from_mac_ici_ptr”  .  var_iianie)) 

*  (^ar_p_pfr  =  (ciiar  *)  (&prs_pa^->sv_ffom_mac_ici_pir); 
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Four, 


void 

c'p_fddi_sir!lc_tq)_diag  () 

{ 

double  delay,  aeat_time; 

Packet*  pkptr; 

Packet*  pkptr  1  ;  /*3APR94*/ 

Packet*  ppp_pkptr;/*  1 5  JUN94*/ 

int  src_addr,  my_addr. 

int  desLaddr;/’^  14A,?R94*/ 

double  fddi.„siiik_ttit; 

int  xEait„subo  Jndexi/*5APR9‘4*/ 

int  load_biilancc_code.  /*6APR94*/ 

inf  i,subq_noi  /*r,5APR94*/ 

int  index;  /*  iOM/^' i'94  */ 

double  liiik.jmon.!raas_rate'.  /’' i5JUN94*/ 

char  stK)[512],  strl  [512].  /*  for  diagnostics*/ 

int  moa_pkt_sizc;  /•26JUL*/ 

double  sim_diiration;  /''26JljL*/ 

Packet*  ipjpkptr;  /*  1 1  SEP*/ 

FIN  (cp_fddi_sink_tcp_cliag  ()) 


/  find  out  why  s'raighl  line  syndrome  */ 

C'P_pt^g--Odb_nrint_.raajor  T - DEBUGGING  for  straight  line- 

,\j’t 

spiintf  (serf), "count  of  packets  :  (%d)”.subq_index); 
spnntf  (strl, "subqueue  no  ;  (%d)".subq.no); 

opjprg.odb_prini„minor  (strO.sul.  OPCJVIL); 


FOUT; 

} 
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void 

cp._fddLsink_tq)_terrainaie  () 

{ 

double  delay,  creat_,tinie; 

Packet*  pkptr; 

Packet*  pKptrl  ;  /*5APR94*/ 

Packet*  ppp_pkptr;/*  1 5  JUN94*/ 

int  src_addr.  my_addr; 

int  dest_addr;/*14APR9>1’*/ 

double  fddi_siijk_ttrt; 

int  xmit_subq_icdex;/*5APR94*/ 

int  load_hHiance_o>ie;  /*6APR94*/ 

int  i,subq_iiO;  /*25AFR94*/ 

int  index, /*iOMAY94  */ 

double  link.  ,inon_Dans_rate;  /*  1 5.TUN94*/ 

char  sti0[5 1 2] ,  str  1  [512];/*  for  diagnosticii*/ 

int  mon_pkt_size;  /*26JUL*/ 

double  sim_duration;  /*26JUL*/ 

Packet*  ip_pkptr; /*11SEP*/ 

FIN  (cp_fddi_siak_tcp_tenninate  ()) 


FOUT. 

} 


Coinpcode 

q.'>,Jddi_sink_f€p..init  (pr_state_pptri 

cp_fddi_sink_,tcp_5tate**pr_siaicj)pir, 

( 

static  Vos7_Cm„Obiypeobtype  -•  OPC_NIL; 

FIN  (cp._fddi_sink_tcp„in’t  (pr_stals_pptr)) 
if  (obr>7K  ==  OPC_NIl,) 

I 

if  (Vos_CatmeniJRegii:ter  ("proc  state  vars  (cp_fddi_sink_tcp)”, 

sizeof  (cp..fddi_sink_tcp„sta:e),  Vos_Nop.  &obt>pe)  =---  VOSC.  FAILURE) 
FRJiT  (OPC_CO/^lFCODE_FAn.URE; 

} 
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if  ((''‘pr_state„pptr  r::  (cp_fddi_sink_tq)_.state*)  \A)s_Cacnem„AUoc  (obtype,  1)) 
OPC_NIL) 

FRET  (OPC_COMPCODE_FAILIIRE) 

else 

{ 

(■■’‘pr  _staie_pp£r)->cuirent_block  =  4; 

FRET  (OPC_COMPCODE_SUCCESS> 

} 
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APPENDIX  J 


TCP  RING  0  MAC  MODULE  CODE 
“cp_fddLniac__tcp.pr.c” 

Unchanged  portions  of  this  file  have  been  deleted  for  brevity. 

/*  Process  model  C  form  file;  cp_fddi_mac_tcp.pr.c  V 
/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  *! 
#include  <opnct.h> 

#include  “cp_fddi_mac_tcp.pr./^ " 
FSM_EXT_DECS 


/*  Header  block  */ 

t*  Define  a  tima  struatire  used  to  iniplemeni  *! 

/*  the  TRT  and  THT  timers.  The  primitives  defined  to  *! 
I*  operate  on  these  timers  can  be  found  in  the  */ 

/*  function  block  of  this  process  model.  */ 
typedef  struct 
{ 

int  enabled; 

double  stan_time; 

double  accutu' 

double  target_accum; 

}  FddiT_Tuner; 


/■*  Declare  certain  priminves  dealing  wiifi  limcr.s  *! 
double  fddi_timer_rcraaining  (), 

FddiT.  Timer*  fddi_titrer_create  (); 
double  fddLtimer_value  (); 

/*  Scratch  snings  tor  U'ace  stateinenu  */ 
char  siTO[312].strl  [512], 
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j'*  define  eoasta^ats  particular  to  this  impiementatjon  */ 

#deiute  FDDI_.MAX_SIA'nONS  o  12 

/*  define  possible  values  for  the  franie  control  field  */ 
#defincrDDI_FC_FRAlvlE  0 

#deS  ne  FDDLFC  TOKEN  1 

/’*'  define  possible  service  clas.ses  for  frames  */ 

#definfiFDDI_SVC_ASYNC  0 

#defineFDDl_SVC.SYNC  1 

/*=  define  input  stre^  indices  */ 

#defineFDDl_LLC_STRMJN  1 

#(iefineFDDI_PHY_STRM_IN  0 

/*  define  output  stream  indices  */ 

#define  FDDI„  LLC_STRM_OU'r  1 

#dehiie  FDDI_PHY_STRM_OLJT  0 

/*  define  token  classes  */ 

#define  FDni_  nc.NONP^STRJCTED  0 

#defiaeFDDi„TK_RESTRICTED  1 

/*  Ring  Constants  */ 

#define  FDDLTX.RATE  1 .0e-K)8 

#define  FDD1_SA  .SCAN_TIME  28.0e-08 

I'*  Token  transmission  time;  based  on  6  symbols  plus  16  symbols  of  preamble  */ 
#defineFDDIC_TOKEN_TX_TIME  8S.0e-08 


/*  Co'^<"S  used  to  differentiate  remote  interrupts  '^1 
#defineFlJDIC_TRT_EXPIRE  0 

#defineFDDIC_TK_INJECT  1 


/*  Define  symbolic  expressions  used  on  transition  */ 

/*  conditions  and  in  exeaitive  statements.  •/ 

#defirieTRT..EXPIRE  \ 

(op_intrpt_':ype  ()  =  OPC_nnilPl'_RElvIOTE  &&  op_intrpt_code  ()  == 
FDD1C_TRT_EXP1RE) 
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#deiine  TK_nECEJVEEN 
phy_arrival  &&  \ 

lratne_control  FDDI_FC_TOKEN 

#defiue  RC_FRAME  \ 
phy_aiTival  &&\ 

fra:iie_control  ==  FDDI_FC_FRAME 

#define  FRAMB_ARRIVaJA 

op..intrpt  jjTJe  ()  “  OPC_E^rrRPT_STRM  &&\ 
op_intrpl_strni  0  ==  FDDI_IJ.C_S’rRM.  .IN 

#define  STRIPmy_address  "  src_addr 

/*  Define  the  maximum  value  for  ring.  id.  This  is  the*/ 

/*  maximum  uumbei  of  FDDI  rings  that  can  exist  in  a*/ 

/*  simulation.  Note  that  if  this  number  is  changed,*/ 

/*  the  initialization  for  fddi..claim_start  below  must*/ 

/*  also  be  modified  accordingly.*/ 

#defineFDDLMAX_RING_lfD  8 

/*  Declare  the  operative  TTRT  value  ‘T_Opr’  which  is  the  final*/ 

/*  negotiated  value  of  TTRT.  This  value  is  shared  by  ail  stations*/ 

/*  on  a  ring  so  that  all  agree  on  its  value,*/ 
double  fddi_t_opr  [FDDI_MAX_RING  ..ID]; 

#define  FddLT_Opr  (fddi_t_opr  tring_jd]) 

/*  This  flag  indicates  that  the  negotiation  for  the  final  TTRT*/ 

/*  has  not  yet  begun.  It  is  statically  initialized  here,  and*/ 

/*  is  reset  by  the  first  station  v/hich  modifies  T_Opr.*/ 

/*  Initialize  tc  1  for  all  rings.*/ 
static 

int  fddi_claim_stan  [FDDI_MAX_RING_ID]  =  { 1 . 1 , 1 , 1 , 1 , 1 . 1 , 1 } ; 

#define  Fddi_CJaim..Stan(fddi_claiin_sian  [ring_id]) 


/*  Declare  station  latency  parameters.  */ 

/*  These  are  true  globals,  so  they  do  not  need  to  be  arrays.  */ 
double  Fddi_Si_Lazency; 
double  Fddi_Prop_Delay; 

/*  Declare  glooals  for  Token  Acceleration  Mechanism.*/ 

/*  Hon  delay  and  token  acceleratioi'  are  tnie  globsls.*/ 
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double  Fddi_Tk_Hop_Delay; 
stat-'C 

im  Fddi_Tk_Accelerate=  1; 

/*  These  are  actually  values  shared  by  aU  nodes  on  a  ring,*/ 

/*  sc  they  must  be  defined  as  tjrays.*/ 

double  fddi_tk_block_base_time  [FDDI_MAX._RING_ID]; 

#define  FddLTk_Block_Base_Time(fddi_tk_block_base_time  [ring_idD 

int  fddi_tk_block_base_station  IFDDI_MAX_RING_ID]; 

#define  Fddi_Tk_Block_Bas6_Station(fddi_tk_block_base_station  [ring_id]) 

int  fddi_tk_blockod  [FDDI_MAX_RING_ID]: 

#define  FddLTk.  Blocked(fddLtk_blocked  [ring_id]) 

int  fddi_num_stations  [FDDI_MAX_I^1NG_ID]; 

#define  Fddi_Nuin_StatioiJs(fdcu_nuni.3Lauoas  [riog^id]) 

int  fd<li._num_registered  [FDD1_MAX_RING_ID]; 

#define  Fddi_Num_Registered(fddi_niim_regist2fed  [ring_id]) 

Objid  fddi_address_table  tFDDI_MAX.IUNG.,ID]|FDDI_MAX_STAnGNS); 
#d6fine  Fddi_Address_Thble(fddLaddress_tablc.  [ri  ng  _idj ) 

/*  Below  is  part  of  the  OPBUG  2081  paich,  FB  ended  here,  before.  -Ni.\  */ 

/*  Event  handles  for  the  TRT  are  maintained  at  a  global  level  to  */ 
j*  allow  token  acceleration  mechanism  to  adjust  these  as  necessary  V 
/*  when  blocking  aiiU  reinjecting  the  token.  TR'Chandle  simply  */ 

/*  represents  tire  TRT  for  the  local  MkC'V 

Evhandle  fddi_trt_handle  rFDDI_MAX.,KING_II)][F!:)Dl..I'»fAX_STA1’lONSj; 
trdefine  Fddi,_Tit_Kandle(fddi_ut_uan(lie  tring_id]l 
#define  TRT_baa(ile  Fddi_'Ili_Handle  [my._address3 

/*  Similarly,  the  TRT  data  structure  is  maintained  on  a  global  level.  */ 
Fdd.iT_Tiraer*fddi_trt  [FDDI_1^\X.R1NG JD]  [FDDI..MAX_STAnONS]; 
#define  Fddi_'ftt  (fddi_trt  [ring_id]) 

#dcfinc  TRT  Fddi_Th  [my_addrcss] 

I*  Registers  to  record  tiie  expiration  time  of  each  TRl  when  token  is  blocked.  */ 
double  fddi_trt_exp_ti  roe  fFDDLM AX_RI1'1G_  ID]  (FDDI_M.\X_STA110NS] ; 
#define  Fddi_'Iit_Exp_Timelfddi_trt_cxp_time  lring_id]) 
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/*  the  ‘Late_Ct’  flag  is  declared  on  a  global  level  so  that  it  can  be  */ 

/*  set  at  the  tim  ewhere  the  token  is  injected  back  into  the  ring.  */ 

int  fddijate_ct  [FDDI_MAX_RING_ID]  [FDDLMAX_STAnONS.l; 

#define  Fddi_Late_Ct  (rddLlate_a  tring_id]) 

#define  Late^Ct  Fdcli_Late_Ct  [my„ad<lress] 


/*  Convenient  maao  for  setting  TRT  for  a  given  station  and  absolute  time.  */ 
#defineTRT_SET(station_id,abs_ume)\ 
fddi_timer_set  (Fddi_lh  [station_id],  abs..time  -  op_sirn_time()),\ 
Fddi_lYt_Hanilie  [station  .id]  =  opjntrpt  ,,scheduk._remote  (abs_tirae,\ 
FDDIC_TRT_EXPIRE,  Fddi_ Address.  Table  [stationjd]): 


/*  State  variable  defmiticus  */ 
typedef  sbnct 
{ 


FSM_SYS. 

.STATE 

int 

sv_ring_id; 

rddiT^Tlmcr*  sv._THT, 

double 

sv_T_Req; 

double 

sv_T_Pri  [gj; 

Objid 

sv_my_objid: 

int 

sv_spawn.tjoken; 

int 

sv_my_ad(iress; 

int 

sv_orig_src_adclr; 

Packet* 

sv_tk_pkptr; 

double 

sv_sync_binidwidth: 

double 

sv_sync_pc; 

int 

sv_restricted; 

int 

sy_res_peer; 

im 

sv..tk_registercd; 

Ici* 

sv_to_llc_ici_ptr; 

int 

sv_tk_trace„on; 

}  cp_fddLniac_tcp_state; 

#define  pr_state_ptr 
#define  rmg_id 
#defineTHT 
#define  T_Req 
#define  T_Pri 
#define  my_obiid 


((cp_fddi_raac_tcp_staie*)Siml_Mod_State_Ptr) 
pr_state _ptr->sv_r:..g_id 
pr_state_ptr->sv_THT 
pr_state_ptr->sv_T_Req 
pr_state_pD->sv_T_Pri 
pr  state_ptr->sv_my_objid 
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#define  spawnjoken 
#(:!efine  iny_acldress 
#denne  orig_sfc_addr 
#deflae ik_pkpn 
^define  synOandwidtli 
#define  sync_pc 
#define  restricted 
#define  res_peer 
#define  tk_registered 
#define  to_llc_ici_ptr 
#define  tk_trace_on 


pi_3tate_ptr->sv._3pav/'.i_token 
pr_statc_ptr->sv_my_tiddress 
pr^  Etate_ptt  sv_orig. .  src_addr 
pr_  siate_ptr->sv_  ik_.pkptr 
pr_.  state.  ctr->sv_syac_band width 
pr  _state..ptr-  >sv_  syncope 
pr_,state j)fr->sv_restriaed 
pr_.s«tte_ptr->$v_re5_peer 
pr_state_ptr->sv„tk_registered 
pr_staie_ptr->sv._to_UcJd_ptr 
pr_state_ptr->sv_tk_  trace_on 


/+  Process  raodel  interrupt  handling  procedure  */ 


void 

cp_fddi_raac_tcp  () 

( 

\ 

/*  Packets  and  ICl’s  */ 

Packet*  mac_frame4?tr; 

Packet*  pdujptr; 

Packet*  pkptr; 

Packet*  data_pkptr; 

Ici*  ici.j)tr; 

/*  Packet  Fields  and  Attributes  */ 
int  req_pri,  svc_class,  req_tk_class; 

ith  £rame_conirol.  src_addr,  dest_addr, 

int  pk  Jen,  prijevel; 

/*  Token  •  Related  */ 

int  tk_usable,  res_station,  tk_class; 

int  current._tk_class; 

double  accum_sync; 

/*  Timer  -  Related  */ 

double  tx_tirae,  tinier_reraaining,  accum._bandwidth; 

double  tht_value; 
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/*  Miscellaneous  */ 
int  i; 

int  spawn_stauon,  phy_arrival; 

char  eiTor_string  [512]; 

int  num_frames_sent.  nutn_bits_sent; 

/*  26DEC93:  loop  management  variables,  used  inRCV_TK. "  / 

/*  and  ENCAP  states.  -Nix  */ 

int  NUM^PRIOS; 

int  punt; 

int  q^chfcck; 


/*  11SEP94:  added  creation_ame  */ 
double  creation_time; 


FSM._ENTER  (cp_fddi_mac_tcp) 

FSM_BLOCK_SWITCH 

{ 

/* - */ 

/**  state  (INTT)  enter  executives  **/ 

FSM_STATE_ENTER_FORCED  (0,  stateO_enter_exec,  “INTT’) 

[ 

/*  Obtain  the  station’s  address .  This  is  an  attribute  */ 

I*  of  this  process.  Addressing  is  simpEfied  by  */ 

I*  simply  using  integers,  and  only  one  mode.  */ 

/*  This  mode  is  16  bit  addressing  unless  the  */ 

/*  packet  format  ‘fddi_mac_fr’  is  modified.  */ 

niy_objid  =  op_id_self();  f*  29DEC93  *! 

op  ima  obj  attr  get  tmy_objid,  s;ation_addrcss  ,  &my_address) 

/*  Register  the  station’s  objea  id  in  a  global  table.  */ 

/*  This  table  is  used  by  the  mechanism  which  improves  *! 
t*  simulation  efficiency  by  ’jumping  over’  idle  periods  */ 

I*  rather  than  circulating  an  unusable  token.  */ 
fddi_station_register  (my_ad<lress.  my_objid); 


I*  Obtain  the  station  latency  for  tokens  and  frames.  */ 
/*  Default  value  is  set  at  100  nano-seconds.  *! 
Fddi_St.  Latency  =  100.0e~09; 
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op_ima_sim_attr_g6t  (OPC_IMA_DOUBLE,  “station_latency”, 
&Fddi_St_Lar.cncy ) ; 

/*  Obtain  the  propagation  delay  separating  stations.  */ 

/*  Tliis  value  is  given  in  seconds  with  default  value  3.3  microseconds.  */ 
Fddi_Prop_Delay  =  3.3e-06; 

op_ima_sim_alir_get  (OPC_IMA_DOL^LE.  *‘prop_delay”.  &FddLProp_Delay); 

/*  Derive  the  Delay  for  a  ‘hop’  of  a  freely  circulating  packet.  */ 
Fddi_Tk_Hop_Delay  =  Fcdi_Prop_  Delay  +  FddLSt_Latency; 


The  T_Pri  Q  state  variable  array  supports  priority  */ 

/*  assignments  on  a  station  by  station  basis  by  *i 
I*  establishing  a  correspondence  between  integer  priority  */ 

/*  levels  assigned  to  frames  and  the  maximum  values  of  the  */ 

/*  token  holding  timer  (THT)  which  would  allow  packets  to  be  */ 
sent.  Eight  levels  are  supported  here,  but  this  can  easily  */ 

/*  be  changexl  by  redimensioning  the  priority  array.  */ 

/*  By  default  aU  ieve.ls  are  identical  here,  allowing  */ 

/*  any  frame  to  make  use  of  the  token,  so  that  in  faa  *I 
/*  priority  levels  are  not  used  in  the  default  case.  */ 

/*  01.fAI'J94:  (8~i)  is  a  quick  attempt  to  impan  different  weighting  */ 
/*  scales  on  each  priority  level,  and  is  not  necessarily  realistic.-Nix  */ 
/*  Be  aware  of  integer-double  arithmetic  a>nflicts  ie,  1/8  =  0.  -Nix  */ 

op_iraa_obj..attr_get(my_objid,  “T_Req”,  &T_Req); 
for  (i  =  0; !  <  8;  i+-r) 

{ 

T_Pii[j)  =  ((doubleKi  +  1.0)/8.0)  *  r'ddi_T_Opr; 

/*  priaff(“MAC  INIT:  T_Pri[%d]  is  %lf;  */ 

/*  Fddi.T_Opr  is  i.  TJVi[i].  Fddi_T_Opr);  */ 

} 


/*  Create  the  token  holding  tima  (THT)  used  to  restrict  the  */ 
!*  asynclircnous  bandwidth  consumption  of  the  station  */ 

THT  =  fddi_timer  .create  (). 

/*  Create  the  tokea  rotation  timer  (TRT)  u.sed  to  measure  the  */ 
/*  rotations  of  tiie  token,  detect  late  tokens  and  initialize  */ 

/“*  the  THT  timer  before  asynctu-onous  tramrsmi.s,sion.s.  */ 
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TOT  =  fclcli_timer_cieate  (); 


/*  Set  ti\e  TOT  lime'  to  expire  in  one  TIRl’  */ 

TOT_SET  (m}  _  address,  op„sim_time  ()  +  Fddi_T  .Opr); 

I*  Initialize  the  I^te_Ct  variable  which  keeps  track.  */ 

/*  of  the  number  of  TOT  expirations.  *! 

Late_Ct  =  0; 

/*  initially  the  ring  operates  in  nonrestricted  mode  */ 
restiicted  =  0; 


/*  Create  an  Interface  Control  Infomiation  stiuctuie  */ 

/*  to  use  when  delivering  received  hames  to  the  LLC.  “'Z 

/’''11SEP94:  changed  to  new  format,  adding  pri  and  cr_time’'"'*/ 

to_llc_ici  _ptr  =  op_ici_create  (“fddi_mac_ind_tcp”); 

/*  The  ‘tk_registered’  variable  indicates  if  the  station  */ 

/*  has  registered  its  intent  to  use  the  tokea  */ 
tk_registered  =  0; 


/*  Determine  if  the  model  is  to  make  use  of  the  token  */ 

/*  ‘acceleration’  mechanism.  If  not,  every  passing  of  the  */ 

/*  token  win  be  explicityly  modeled,  leading  to  large  */ 

/*  number  of  events  being  scheduled  when  the  ring  is  idle  */ 

/*  (i.e,  no  stations  have  data  to  send).  */ 
op_inia_sim.  attr_get  (OPC_IMA_INTEGER,  “acceleraie_token”, 
&Fddi  _Tis:_Accelerate); 


/”  Obtain  the  synchronous  bandwidth  assigned  *! 

/*  to  this  station.  It  is  expressed  hs&*/ 
f*  percentage  of  TTRT,  and  then  convened  to  seconds  */ 
op.  ima_obj_attr_get  (my_objid,  “sync  bmd width”,  &sync_pc); 
sync_bandwidih  =  sync_pc  Fddi_T_Opr; 


/*  Only  one  station  in  the  ring  is  selected  to  */ 

/*  introduce  the  first  token.  Test  if  this  station  is  it.  *! 
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/*  If  so,  set  the  ‘spawn_token’  f.ag.  */ 

/*  op_ima_siin_attr_get  (OPC_IMi\_INTEGER,  “spawn  station”, 
&spawn_station);  */ 

/*  spawn_token  =  (spawn_stauon  ==  my_adclrcss);  */ 

/*  If  the  station  is  to  spawn  the  token,  create  */ 

/*  the  packet  which  represents  the  token.  */ 

/*  14APR94  :the  lodges  will  spawn  token  in  both  rings  */ 

/*  -Karayakaylar  *! 
spawTi^token  =1: 
if  (spawn,  token) 

{ 

tk_pkptr  =  op_pk_create_fmt  (“fddLmac_tk"); 

I*  assign  its  frame  control  field  *! 
op_pk_nfd_set  (tk_pkptr,  “fc”.  FDDI_FC_TOKEN;; 

/*  the  first  token  issued  is  aon-restriacd  V 

op_pk_nfd_set  (tk  jikptr.  “class”.  FDDI_TK_NONRESTRICTED); 

/*  The  transition  will  be  made  into  the  ISSU_TK  */ 

/*  state  where  the  tk_usable  variable  is  used.  *! 

/*  In  case  any  data  has  been  generated,  pi  set  */ 

/*  this  variable  to  one.  */' 
tk_usabie=  1; 

} 


/*  When  sending  packets  the  variable  accum_bandwidth  is  */ 
/*  used  a;'  a  scheduling  base.  Init  this  value  to  zero.  */ 

/*  This  statement  is  required  in  case  this  is  the  spawning  */ 

/*  station,  and  the  next  state  entered  is  ISSUE_TK  */ 
arxum_bandwidth  =  0.0, 


} 
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/**  state  dNIT)  exit  executives  *•/ 
FSM_STATE_EXIT_FORCED  (0.  statcO  cxit_exec.  “INIT  ) 
{ 

} 


/**  state  (INID  transition  processiog  ••/ 
FSM_INTT_COND  (spawn^toiteQ) 

FSM_DFLT_COND 
FSM_TEST_LOGIC  ("INIT  ) 

FSM.TRANSrr.  SWITCH 
I 

FSM_CASE  TRANSIT  (0.  2.  suic2,eoier_exec. ;) 
FSM_CASE_TRANSrT (I.  I.  state l^eiiter  ;) 

1 


/**  state  (FR_  REPEAT)  ccter  executives  ••/ 
FSM_STATE_ENTER_FORCED  (6.  sttte6  eaa  exec  "FR  RFPF.at’) 
i 

r  Extraa  the  OTStiaatioa  attdrcss  of  tbc  frinjc.  •/ 
op_pk_af(j_3ct  (pkptr.  "<k«_ad<lr",  a4est_addr); 

/*  If  tbe  frame  is  for  this  station,  make  •  copy  */ 

/*  of  the  frame's  data  freld  and  forward  it  to  */ 

/*  the  higher  layer.  •/ 

/•  HAPR94  :  In  order  to  send  the  fram^  which  arc  '/ 

/*  addressed  to  the  remote  Ian.  check  the  address  daubase  */ 

/•  of  remote  laa  Frames  addressed  to  the  remoce  lao  shouldn't  •/ 

/*  be  rq)cate{1  in  the  local  ring  -  This  is  a  simple  forwarriing  •/ 

/*  decision  algorithm,  one  of  the  bridge's  function  */ 

/*  -  Karayakaylar  •/ 

if((dest_addr  -j*  my_address)iKdest_8ddr  >  my  address)) 

i 

/*  record  total  siie  of  the  frame  (including  data)  •/ 
pk.len  ■  op_pk  ,ioial„size_ga  (piqnr); 

/*  decapsulatc  the  data  contents  of  the  frame  •/ 

/*  29JAN94:  a  new  field,  “pri' .  has  been  added  to  •/ 

/*  the  fddi_llc_fr  packet  format  in  the  Parameters  •/ 

/*  Editor,  so  that  oufrMir  statistics  can  be 
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/*  generated  by  class  and  priority.  -Nix  */ 
op_pk_nfd_get  (pkptr,  “info”.  &data_pk.ptr); 
op_pk_nfd_^t  (pkptr.  “pri”.  Aprijevel). 

/*  The  source  and  destination  address  arc  placed  in  the  */ 

/•  LLC  s  ICI  before  delivenng  the  frame’s  contents.  •/ 
op_ici_atir_set  (to_llc_ici_ptr.  "src..addr”.  src_addi ); 
op_ici_attr_set  (io_Uc_ici_ptr.  “dest_addr".  dest^addr). 

/•  1 1SEP94;  added  pri  and  a_tinic  to  fddi_mac_iiid  id**V 
/•  both  are  needed  for  data  collection***/ 

op_ici_attr_sct  (to_llcJci_ptr.  “pri  ”.  pri_lcvel), 
op  j)k_nfd  jsct  (pkpti.  “cr_uiDe".  &creaiioo_time), 
op_ici_a{ti_sci  (to_Uc_ici_ptr.  ■'CT_iimc".  crcaiion_uroe). 

op_ici_instal]  (to_lk_icijHr), 

/•  Because,  as  noted  in  the  Ht.RCV  state,  only  the  */ 

/*  fraine's  leading  edge  tuu  arrived  at  this  time,  the  */ 

/*  complete  frame  can  only  be  delivered  to  the  higher  */ 

/*  lava  afta  the  frame’s  transmission  delay  has  elapsed.  */ 

/♦  (since  decapsulanon  of  the  frame  data  comcins  has  ocaxrtd.  */ 

/•  the  original  M.\C  frame  length  is  used  to  calculate  delay)  */ 
tx.Utne  «=  (double)  pk_len  /  FDDI_TX_  RATE; 
op_pk_seDd„dcUyed  (daia_pkptr.  FDDl_LLC„STRM_OUT.  tx_ume); 

/•  Note  that  the  standard  specifics  that  the  original  */ 

/*  frame  should  be  passed  along  until  the  originating  station  */ 

/*  receives  it.  at  which  point  it  is  stripped  from  the  ring  */ 

/*  Koweva.  in  the  simulation  model,  there  is  no  interest  */ 

/*  in  letting  the  frame  cnniinue  past  its  destination  unless  */ 

/*  group  addresses  zit  used,  so  that  the  same  frame  could  be  */ 

/*  destined  for  sevaal  stations.  Mac  the  frame  is  stripped  */ 
y*  for  efficiency  as  it  reaches  the  destination;  if  the  model  */ 

/*  is  modified  to  include  group  addresses,  this  should  be  changed  */ 

/*  so  that  the  frame  is  copied  and  the  original  repeated.  */ 

/•  IjQgic  is  already  presem  for  stripping  the  frame  at  the  origin.  */ 
op  jpk_dcstroy  (pieptr); 

) 

/*  14i\PR94  .  the  frames  belong  to  this  ring  should  be  repeated.  */ 

/*  Thus,  local  traffic  is  constrained.-  This  is  filtering  decision  */ 

/*  One  of  the  bridge’s  function  -  Karayakaylar  */ 


186 


else! 

I*  Rq>eat  the  original  frame  on  the  rng  and  account  for  *! 

I*  the  latency  through  the  stauon  and  the  propagation  delay  *! 
r  for  a  tingle  hop.  *! 

/*  (Only  the  originating  station  can  snip  the  frame).  *! 
op  j)k_  scnd_delayed  (pkptr.  FDDl.  Pfn'_STRM_OUT. 
Fddi^St.Latcncy  Fddi_Prqp„Dday); 

) 

) 


/•*  state  (FR_REPE^T)  exit  executives  *V 

FSM_STATE_EXIT_FORCED  (6.  sute6_cjut_excc.  ‘  FR.REPtAT  ) 

{ 

\ 


/**  suic  (FR^REPEAT)  transition  piocessing 
FSM_TRANSrr_FORCE  ( I .  statcl„enicr_exec, ;) 

/• . •/ 


!**  state  (ENCAP)  enter  exccuti  'cs  ’'*/ 
FSM_STATE_ENTER_FORCED  (8,  state8_eatcr_excc,  “ENCAP") 

( 

/*  A  frame  has  arrived  frxim  a  higher  layer;  place  it  in  ‘pdu_pir'.  */ 
pdu_ptr  e  op_pk_get  (op.iniipt^stnn  ()); 

/*  Also  get  the  interface  control  information  *! 

/♦  associaicd  with  the  new  frame.  •/ 
ici_ptr  =  op_intrpt  Jci  (); 
if  (ici_ptr  =  OPC_NIL) 

{ 

sprinlf  (crror_string.  ‘'Simulation  aborted;  error  in  object  (%d)”, 
op__id_self  0); 

op_sim_end  (crror_siring.  *'fddi_mac:  required  ICI  not  received”. 

} 

/♦  Extraa  the  requested  service  class  */ 

/*  (e.g,  synchronous  or  asynchronous). 
if  (opJci_attr_exists  (ici_ptr,  ‘‘svc_  class”)) 

op_ici_attr _get  (ici4)tr,  "svc^class”,  &svc„class); 
else  5vc_class  =  FE)DI_SVC_ASYNC; 
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/*  Extract  the  destinatioa  address.  */ 
op_tci_attr_get  (ici_ptr,  ‘*deft_addr”,  &dest_addr); 

/*  Extract  the  origiiial  source  address  from  ICI  :16APR94  */ 
opJci_attr_get  (icLptr,  ‘*src_addr”.  &orig_src_addr); 

/*  If  the  frame  is  asynchronous,  the  priority  and  *! 

I*  requested  token  class  parameter  may  be  specified.  *! 
if  (svc_class  =  FDDI_S  VC_ASYNC) 

I*  Extract  the  requested  priority  level.  */ 
if  (op_icLattr_exists  (ici_ptr.  “pri”)) 

op_ici_attr_get  (ici_ptr,  “pri”,  &req_pri); 
else  reqjpri  =  0; 


/*  Extract  die  token  class  (nestrictred  or  non-rcstricted).  */ 
if  ((^_ici_attr_cxists  (ici_ptr.  “tlt.class”)) 

op_ici_anr_gct  (ici_ptr,  “tk_class",  &xcq_tk_class); 
else  req_tk„class  =  FDDI_TK_NONRESTRICTED; 


f*  Check  for  the  default  ICI  valucs;if  they  are  not  present  •/ 
/*  compose  the  frame:21AFR94  ♦/ 
if(  dest_addr  !=  orig_src_»!l(lr)| 


r  Compose  a  mac  frame  from  all  these  elements.  */ 


1 1SEP94;  mac  frame  fonnat  is  changed  to  fddi_mac_fr_tcp***/ 


mac_framc_ptr  =  op  j)k_crcaic_fmt  C'fddi_mac_fr_tcp”;; 
op_pk_afd_sct  (mac_framc_ptr.  "svc_class”.  svc.class); 
op_pk_nfd_set  (mac_frame_ptr,  "dest_addr”.  dcst_addr); 
/*opj)k_nfd_set  (mac_framc_ptr,  “src_ad(lr”,  my_addrcss);*/ 
r  here  original  source  address  should  be  kept  in  mac  frame  ;  16APR94*'/ 
op_pk_nfd_sct  (mac_framc_ptr,  "src.addr",  orig_src_8ddr); 
op_pk_nfd_sct  (mac_framc_ptr.  “info”.  pdu.j)cr); 


/*  11SEP94:  cr_time  is  added  to  the  MAC  frame  (Obits)  because  it*/ 
/*  IS  needed  for  calculations,  but  taken  out  of  the  LLC  frame  */ 

opJci_attr_gct  (ici_ptr,  “a_tiroc”.  &crcation_timc). 
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op_pk_nfd,.i>et  (mac_frame_ptr,  ‘'cr_tiTie”,  creation_time); 

printf(‘*Sndest_acidr  =  %5d\n”,dest_addr); 
printf(“orig_sic_addr=  %3d\n”.orig_src_£ddr); 

if  (svc_dass  =  FDDI_SVC_ASYNC) 

{ 

op_pk_nfd_set  (mac_frame_ptr.  “tk_ciass”,  req_tk_class); 
op_pk_iifd_set  (mac_frame_ptr.  “pri”.  req_pri); 

} 

/*  04JAN94:  if  the  frame  is  synchronour.  assign  it  a  separate  */ 
I*  priority  so  that  it  may  h:  assigned  its  own  subqueue,  and  *! 
I*  thereby  be  assigned  its  own  probe  fm  monitoring.  -Nix  */ 
if  (svc_class  =  FDDLS  VC_S  YNC) 

{ 

op_pk_nfd_set  (mac_frame_ptr.  “pri",  8); 

} 

I*  Assign  the  frame  control  field,  wtuch  in  the  model  */ 

/*  is  used  to  distinguish  between  tokens  and  ordinary  */ 

/*  frames  on  the  ring.  */ 

op_pk_nfd_set  (mac_frarae_ptr,  “fc”,  FDDLFT,  FRAME); 


/*  Enqueue  the  frame  at  the  tail  of  the  queue.  *! 

/*  27DEC93;  at  the  tail  of  the  prioritized  queue.  •/ 

I*  04JAN94:  must  distinguish  between  synch  &  asynch.  */ 
if  (  svc_class  —  FDDLS  VC_  AS  YNC) 

{ 

op  _subq_pk.  insert  (req_pri.  tiiac.framcjjtr.  OPCLQPOS_T.*  IL); 

) 

if  (svc.class  «  FDDLS  VC.S'iT^’C) 

{ 

op_subq_pk_insert  (8.  mac_fran:e_ptf.  OPC_QPOS_TAIL); 

) 


/*  if  this  station  has  not  yet  registered  its  intent  to  */ 

/*  use  the  token,  it  may  do  so  now  since  it  has  data  to  send  */ 
if  (!tk_rcgistertd) 

{ 

fddi_tk_registcr  (); 
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tk_registcred  =  i; 

} 


}  /*  end  of  if(dest_adclr  !=  orig_src_addr)  statement  */ 


} 


/**  state  (Ei'^TCAP)  exit  executives  **/ 
FSM_STATE_EXrr_FORCED  (8.  state8_exit_exec.  “ENCAP”) 

} 


/**  state  (ENCAP)  transition  processing  **/ 
FSM_TRANSn'_FORCE  (1,  state  l_enier_exec, ;) 
/* - - */ 
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APPENDIX  K 


TCP  RING  1  LLC_^SRC  MODULE  CODE 
“sp_fddi_gen_tcp.pr.c” 


/*  Process  model  C  form  file:  sp_fddi_3eD_tcp.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  */ 
#indude  <opnet.h> 

#include  “sp_fddi_gen_tcp.pr.h’’ 
FSM_EXT_DECS 


/*  Header  block  */ 

#define  MAC_LAYER_OUT_STREAM  0 

#define  LLC_SINK_OUT„STPvEAM  1 1*  1 8  ArR94*/ 

#dcfinc  IP_IN_STRM  4  /*  1 1SEP94*/ 

I*  define  possible  service  classes  for  frames  '*/ 

#dcfine  FDDI_SVC„ASYNC  0 

#defi  ne  FDDI_S  VC_S  YNC  1 

I"*  define  token  classes  ♦/ 

#definc  FDDI_TK_NONRESTRICTED  0 
#define  FDDI_TK_RESTRICTED  1 

/*  define  output  statistics  */ 

#definc  RATIO_OUTSTAT  0 

#dcfinc  UNK_STATUS_OUTSTAT  I 

/*  link^status  constants  30  PJL94*/ 

#define  GOOD  0 

#define  BAD  2 

/*  history  trend  constants  30JUL94*/ 
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#define  DOWN 
#define  UP 


0 

1 


/*  redefine  absolute  value  function  for  floating  pt  values  28JUL94*/ 
#define  abs(i)  (i)<0  ?  -(i) :  (i) 

struct  history _element 

!*  format  for  linked  list  of  history  values  26JUL94*/ 

{ 

int  num_erTs; 

strua  history_element  *next; 

}  *history; 

/+  function  declaration  28JUL94*/ 
struct  history_element  *create_liistory(); 


/*  State  variable  definitioiis  */ 


typedef  strua 
{ 

FSM_SYS„STATE 

Objid 

sv_mac_objid; 

Objid 

sv_my_id; 

int 

sv_station_addr; 

int 

sv_src_addr; 

Int 

svj)pp.i)id_h; 

int 

sv_j)pp_pidJ; 

Ici* 

sv_mac_iciptr; 

Ici* 

sv_llcjciptr, 

Packet* 

sv_pkptrl; 

Packa* 

sv_ppp_pkptrl; 

Packet* 

sv_J>PP_phptr2; 

int 

sv_.hist_len; 

int 

sv_liiik_status; 

int 

sv  _pktsJn_crror; 

double 

sv_old_ratio; 

)  sp_fddi_gen_tcp_staie; 

#define  pf_state_ptr 
#definc  mac_objid 
#define  my_id 
#defiae  station_addr 


((sp_fddi_gen_tcp_state*)  Siml.  Mod_State_Ptr) 
pr_statej)tr->sv_mac_objid 
pr_state_ptr->sv_my_id 
pr_state_p  tr->sv_station_addr 
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#define  src^adclr 
#defiDe  ppp_pid._h 
#define  ppp_pid_l 
#define  mac_iciptr 
#deiine  llcjciptr 
#definepkpirl 
#define  ppp  jjkptr  1 
#define  ppp_pkptr2 
#define  histjen 
#define  link_status 
#define  pkts_in_error 
#define  old_ratio 


pr_state4)tr->sv_src_addr 
pr_statej)tr->sv_ppp_pid_h 
pr_state_ptr->sv_ppp  _pid_l 
pr_state_ptr->sv_niac_iciptr 
pr_statej)tr->sv_llc_idptr 
pr_state_ptr->sv_pkptr  1 
pr_state_ptr->sv jjpp.  j)kptr  1 
pr_state _ptr->sv_4)pp_pkptr2 
pr_state_j)ir->sv_hist_lcn 
pr_state j)tr->sv_link;_status 
pr_state _j)tr->sv _pkts_in_eiTor 
pr_state_pQ->sv_old_ratio 


/*  Process  model  interrupt  handling  procedure  */ 


void 

sp_fddi_gen_tcp  () 

{ 


Packet 

*pkptr,  *ip_pkpa. 

int 

pklen; 

ir.i 

dest_addr; 

int 

i  j,  restriaed; 

int  pkt_prio; 

int 

num_enors; 

double 

new_ratio,  uppa_thresh,  lower_thresh; 

double 

LX3R_tt'ans_delta; 

double 

creation_time; 

lei 

*ipjGiptr; 

FSM_ENTER  (sp_fddi_gen_tcp) 

FSM_BLOCK_SWITCH 

{ 

I* - */ 

/**  state  (INrD  enter  executives  ’•'*/ 

FSM_STATE_ENTER_UNFORCED  <0.  stateO_enter_fcxec,  “INTr’) 

\ 
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/*  determine  id  of  own  processor  to  use  in  finding  attrs  */ 
my_id  =  op_id_self  (); 

/*  determine  object  id  of  connected  ‘mac’  layer  process  */ 
mac_objid  =  op_topo_assoc  (my_id,  OPC_TOPO_ASSOC_OUr, 

OPC_OBJMTYPE_MODULE,  MAC_LAYER_OUT_STREAM); 

/*  determine  the  address  assigned  to  it  */ 

/*  which  is  also  the  address  of  this  station 

op_ima_obj_atu_get  (iiiac_objid.  “station_address”,  &siation_addr); 


/*  set  up  history  array  (dynamically  allocated)  which  will  maintain  */ 
/*  number  of  errors  in  each  monitoring  packet  rcvd.  The  number  of  */ 
I*  values  (length  of  the  array)  saved  will  be  determined  by  an  */ 

/*  environment  attribute.  21JUL94 

op_ima_obj_attr _get  (my_id.  “history  length”,  &histjen); 

history  =  CTeate_histoiy(hist_len); 

printf(“HISTORY\n”); 

if  (op_sim„debug()  =  OPC_TRUE) 

{ 

for  (i=l;i<=hist_len;++i) 

printf  ("%d  “,history->num_errs); 
history  =  history->3ext; 

} 

printf  (“Sn”); 


/*  1 1SEP94  set  up  ICI  structure  */ 

macjciptr  =  op_ici_create  (‘*fd(li_mac_req_tcp”); 

lic_icip!r  =  op_ici_create  (“fd(!i_inac_ind_tcp”); 

} 


/**  blocking  after  enter  executives  of  unforced  state.  **l 
FSM_EXrT  (l.sp_fddi.^en_icp) 


/**  state  (INTT)  exit  executives  **/ 

FSM_STATE_EXIT_UNFOR(3ED  (0,  stateO_exit_exec.  “INIT’) 

i 
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} 


/**  state  (INTT)  transition  processing  **/ 
FSM_TR.\NSrr_FORCE  (1,  statel_euter_exec, ;) 
/* - */ 


!**  state  (ARRIVAL)  enter  executives  **! 

FSM_STATE_ENTER_UNFORCED  (1.  state  l_enter_exec.  “ARRIVAL”) 

{ 

/*  This  station  should  receive  frames  from  the  other  Ian  as  long  as  */ 

!*  there  are  frames  in  the  input  streams  addressed  to  this  Ian  */ 

/♦check  if  the  interrupt  type  is  stream  interrupt  and  from  the  CDL*//*12APR94*/ 
if((op_intipt_type()  =  OPC_INTRFr_STRM)&&  (op_intrpt_strm()!= 
IP_IN_STRM)) 

{ 

/*  if  it  is,  get  the  packet  in  the  input  stream  causing  interrupt  */ 

/*  modified  for  PPP  i2JUL94  ♦/ 

ppp  j)lq)trl  =  op_pk_get(op_intrpt_strm()); 

/*  determine  type  of  PPP  packet  12JUL94  */ 
op_pk_nfd_get(ppp_pkptrl  ,’’pid_h”,  &ppp_pid_h); 

/*  case  on  pid_h;  00  -  data.  OxcO  -  control  13JUL*/ 
switch  (ppp_pid_h) 

{ 

case  0x00;  /*  if  data,  strip  header  and  send  as  FDDI  frame  */ 

/*  strip  off  PPP  header  12JUL94*/ 
if  (op_sim._debug()==OPC_TRUE) 

{ 

printf  (“pkt  rcvd  at  sp:  dataNn”); 
nurn_errors 

=op_td_getJnt(ppp4)kptrl,OPC_TDA_PT_NlJM_ERRORS); 

printf  (“number  of  errors  in  data  -  %d\n”mum_errors); 

} 

op  _pk_.nfd_gci(ppp_pkptr  1  ,”FDDI_frame",«tpkptr  i ); 
op_pk_dcstroy(ppp_pkptrl ); 

/*  get  ICI  associated  with  FDDI  LLC  frame  11SEP94V 
llc_iciptr  =  op_pk_id_get  (pkptrl); 

/*  get  the  destination  address  of  the  frame;  !1SEP94  */ 
op_ici_attr_get(Uc_iciptr,  “dest_addr”,  &dest_addr); 

/*  check  if  this  frame  is  for  the  remote  bridge  station(bridge  in  surface 

Ian)  */ 
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accumulate  */ 
destiDations  */ 


if(dest_addr  ==  station_addr) 

{ 

I*  if  it  is.  G'^nd  the  packet  to  llc_sink  directly  */ 

/*  in  order  to  prevent  overhead  of  mac  access  */ 
op_ici_iastall  (llc_iciptr); 

op..pk_send(pkptr  1.  LLC_SINK_OUT_STREAM);/*  19APR94*/ 

} 

else 

/*  this  packet  is  to  send  to  mac  */ 

{ 

f*  determine  the  source  address  of  the  frame  */ 
op_ici_attr_get(Uc_iciptr.  “src_addr”,  &src_addr); 

/*  set  up  an  ICI  structure  to  communicate  parameters  to  */ 

/*  MAC  layer  process  (initialized  in  INIT  state)*/ 

/*  place  the  original  source  address  into  the  ICI  *//*  16APR94  */ 

/*  “fddLmac_req”  is  modified  so  that  it  contains  the  original  */ 

/*  source  address  from  the  local  lan(collection  platform)  */ 
op_ici_attr_set(mac_iciptr,  “src_addr”,  src_addr); 

/*  place  the  destination  address  into  the  ICI  */  /*  12APR94*/ 
op_ici_atd-_set(mac_iciptr.  “dest_addr”,  dest_addr): 

/*  assign  the  service  class  and  requested  token  class  */ 

/*  At  this  moment  tte  frames  coming  from  the  remote  Ian  are  assumed  */ 
/*  to  have  the  same  priority  as  synchronous  frames  in  order  not  to 

/*  packets  on  the  bridge  station  mac  and  instead  to  deliver  their 

/*  as  soon  as  possible  */ 

/*  10SEP94: 1  don’t  know  why  Selcuk  did  this,  so  I’ll  leave  the  values*/ 
/*  but  change  to  conform  with  the  new  packet/ICI  formats  */ 
opJci_anT„3et(mac_icip?r.  “svc_class”,  FDDI_SVC_SYNC); 
op_ici_atir_set(mac_iciptf.  “pri”,  8); 

op„,ici_attr_set(macJciptr,  ‘'tk_ciass”,  FDDI_TK_NONRESTRICTED); 


op_ici_attr_get(Ilc_iciptr.  ‘‘cr_tirae”,  &creation_time); 
oi  _ici_attr_.set(mac_iciptr.  ‘'cr_time”.  creation_time); 

'  send  the  packet  coupled  with  the  ICI  */ 
V_ici_iiistall(mac_iciptr); 

op_pk_send(pkDtrI.  MAC_LAYER_OUT_STREAM); 

} 

break; 

case  OxcO:  /*  either  monitoring  packet  or  LQR  */ 
op_pk_nf(1_get  (ppr_pkptrl,”pidj”,&ppp_pidj); 
switch  (ppp_pid_l) 
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case  0x21 :  /*inonitcring  packet^ 

printf  ("MONrrORING  PACKET  RECETVErJMi”); 

num  .errors 

=op_td_get_int(ppp  jkptr  1  ,OPC_TDA„PT_NUM_ERRORS); 

printf  (“  NUMB  ER  OF  ERRORS  ->%d\n”,num_enrors); 
if  ((num_errors  !=  0)  &&  (history->nuni_erTS=0)) 
pkts_in_erTor++; 

else  if  ((nuin_errors  =  0)  8rA  (hisiory->nuin_ciTs  !=  0)) 
pkts_in_error"; 

printf  (“  TOTAL  NUMBER  OF  PACKETS  IN  ERROR  - 

>%dSn’  ’  ,pkts_in_error) ; 

history->num_errs  =  niiin_errors; 
history  =  history->next; 

if  (op_sim_debug()— OPC_TRUE) 

/*  print  out  history  values  30JUL94  */ 

{ 

for  (i=l;i<=hist_leu;++i) 

t 

printf  (“%d  ‘Miistory->auin_errs); 
history  =  history->iJext; 

} 

printf  CNii”); 

} 

op_pk_destroy  (ppp_pkptrl); 

new_ratio  =  (double)pH,s_in_eiTor/(doubie)hisl_len; 

/*  outstat(O)  will  be  a  record  of  the  ratio  8AUG94*/ 
op_stat_local_write  (RAnO_OUTSTAT,  new_ratio); 
op_ima_obj_aitr_get  (my_id,  ”LQR  transmission  della”, 

&LQR_irans__delta) ; 

if  (op_siro_debug()=OPC_TRUE) 
printf  (“LQR  delta  -  %f  new_ratio  -  %f  old_ratio  - 
%f\n’’.LQR_trans_delta.new_ratio.old_ratio); 

/*  8AUG94  This  condition  allows  for  tolerance  in  the  ratio 

calculaticn(division)  •/ 

if  (abs(new_ratio  -  old_ratio)  >=  LQR_trans_delta) 

{ 

ppp_pkptr2  =  op_pk_create_fmt  (“ppp”); 
op_pk_ufd_set  (ppp_pkptr2,  “pid_h”,  OxcO); 
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op  j)k_nfd_s<;t  (ppp_pkptr2.  '•pid_l‘ .  Ox25j; 


op  .ima_ol>j_attr_gct  (my_id.  "upper  hysteresis  threshold", 

&upper_thrcsh). 

op_iin#_obj_inr_get  (iDy_id.  "lower  hysteresis  threshold". 

&lowcr_thresh). 


/•  status  =  GOOD  0  Of  BAD  2  trend  «=  UP  1  or  DOWN  0  2AUG94*/ 
if  {DCw_raiio  >=  upper_  thresh) 
link_status  s  BAD: 
else  if  (ncw_ratio  <«  lowcr_thresh) 
link.status  =  GOOD; 

else  link. status  =  link_,>tanis  -  (link.staius  %  2)  J*  remove  trend  value*/ 

/*  outstat(  1 )  will  monitor  link  status  O-GOOD  1  -BAD  8AI  >G94*/ 
op.statjocal.svrite  (LINK.STATIJS.OUTSTAT,  {double)  (link.status/ 

/*  trend  will  change  each  time  */ 
if  (new.ratio  >  old.ratio)  /*up-n-ead  */ 
link.status  +=  UP; 
else  link.status  +=  DOWN; 


opj)k_iifd.set  (ppp4)kptr2.  “LQR.info”,  link.stams); 
if  (op_sim_debug()==OPC_TRUE; 

{ 

printf  (“resulting  LQR  pktNn”); 
opj)kj)rim(pppj)kptr2); 

} 

old.ratio  =  new.ratio; 

opjk.send  (pppj)kptr2.  LLC.SINK  OUT.STRBAM); 

} 

if  (op_sim_debug()=OPC_TRUE) 
printf  (“  Latest  ratio;  %l\n”.new.ratio); 
break; 

case  0x25;/* LQR  from  cp  -  not  implemented  yet*/ 

break; 

default; 

printf  (“E31ROR;  UNKNOWN  PPP  PACKET  - 
pid.l=0x%x\n’  ’,ppp  jpid.l) ; 
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op_pk_dcsiroy  (ppp_pkptrl); 
break; 

) 

break; 

default: 

printf  ("ERROR:  UNKNOWN  PPP  PACKET  - 

pid_b»Ox%)(\n’’.ppp_pid..h); 

op_pk_destroy  (ppp_pkptrl); 
break; 

} 


} 

else  /*  it  should  be  an  IP  dgram  */ 

if((op_ititipt_type() «  OPC_INTRPT_STRM)&&  (op_intrpt_stmi(>= 

IP_IN_STRM)) 

{ 

/*  get  IT  dgram  and  associated  ICH  *! 
ip_pkptr  =  <^_pk_gct  (IP_IN_STRM); 
ip..iciptr  =  op_intrpt_ici(); 

/*  create  an  LLC  frame  to  send  to  MAC  V 
!*  ICI  initialized  in  INTT  state  *! 
pkptr  =  op  j)k_create_fmt  (“fddi_llc_fr_tcp”); 
op_pk_nfd_sct  (pkptr,  “datagram”.  ip_pkptr); 

op_ici_attr_get  (ip_iciptr.”<le5t_addr”.  Adest^addt); 
if  (dest_addr  <«  9)  /•  destined  for  otha  LAN*/ 

{ 

OF_ici_attr_sct  (Uc_iciptr.”dest_addr”,  dcst_addr>; 
op_!Ci_attr_sct  (Ucjcipti.”src_addr".  station.addr); 
op_ici_attr..sct  (Uc_iciptr.”pri”,  0); 
op_ici_attt_set  (llc_icipir.”cr_time”,  op_sim_tiiiie()); 

/■^install  LLC  ICI  and  send  frame  to  LLC  sink  */ 

op_icj_install  (llc_iciptr); 

op_pk_send  (pkpti,LLC_SINK_OUT_STREAM); 

} 

else  f*  destined  for  this  LAN,  so  send  frame  with  MAC  IQ*/ 

{ 

/*  place  the  destination  address  into  the  IQ  */ 
op_ici_attr_set  (macjciptr,  “dcst_addr",  dcst_addr); 

/*  place  the  source  address  into  the  ICI  *//*  17APR94*/ 
op_ici_attr_sct  (macjciptr,  “src_addr”,  station_adJr); 
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/*  assign  ssc.class.  lokt^n  class,  and  pri  lAW  RJf-C'  1390  */ 

op^ici„aiti  _sc«  (raac„iciptr.  ■■svc_cJass’'.  FDDI_SVC_ASYNC); 
op  ici_anr_sct  (marjciptr.  ■‘pri".0). 

/*  Kequcsi  only  nonrestnasd  lokens  after  transmission  ♦/ 
op^ici_anr_sct  (mac.iciptr.  “tk.,c]ass“,  FDDI..TK_NONRESTRICTED); 
op..ici_attr_set  (macjcipir.  '■cr_iirnc".  .•:^..sim_time()); 

op_ici_install  (raac_icipir); 

op_pk_scnd  (pkprr.  MAC_LAYER..OUT_STREAM); 

} 

} 

} 


/•*  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXn’  (3.sp_fddi_gen_tcp) 


/**  state  (ARRIVAL)  exit  executives  **/ 

FSM_STATE^EXrr_UNFORCED  (1.  state l_exit„exec.  ‘  ARRrV'AL”) 

{ 

} 


/**  state  (ARRIVAL)  transition  processing  **/ 
FSM_Tf'lANSIT_FORCE  (1.  state l_enter_excc, ;) 
/*— . . V 


) 


FSM_EXrT  (0,sp_fddi_gen_tcp) 

} 


void 

sp._fd  d  i_geri_tcp_svar  (prs_ptr,var..narne ,  v  ar_4)_ptr) 
sp_fddi  _gen_tcp_state*pfs.j)tr; 
char  *var_name,  ’**var_p,_ptr; 
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{ 


FIN  (sp_fcldi_gcn_.tq)_svar  (prs_ptr)) 

*var_p_.ptr  =  VOS_NIL; 
if  (Vos_Strjag_Equal  (“raac_objid‘’ .  var_naine)) 
♦varjjj)tr  =  (char  *)  (&prs_ptr->sv_mac_objid); 
if  (Vos_String_Equal  (“my_id'’ .  var_name)) 

*var_p_ptr  s:  (char  *)  (&prs_ptr->sv_my_id); 
if  (Vos_StriDg_Equal  (“station.addr” ,  var_name)) 
•vai_p_ptr  =  (char  ♦)  (&prs_p£r->sv_staiion_addr); 
if  (Vos_String_Equal  (“src_addr'’ .  var_name)) 

*var jj_ptr  =  (char  *)  (&prs_ptr->sv_jrc_addr); 
if  (Vcs_String_Equal  (“ppp_pid_h” .  var_nainc)) 
*var_p_ptr  =  (char  *)  (&prs_pn->sv_ppp _pid_h); 
if  (Vos_String_Equal  (“pppjjidJ" .  var_nai?ie)) 

*var_p_ptr  =  (char  •)  (Aprs_plr->sv_ppp.j>id_l); 
if  (Vos_String„EquaI  (“mac_iciptr” ,  var_aamc)) 
*var_p_ptr  =  (char  *)  (&prs_ptr->sv_i£i8C_iciptr); 
if  (Vos_String_Equal  (“llc..idptr’’ ,  var_  name)) 
*var_p_ptr  *=  (char  ♦)  (&prs_ptr->sv_Uc_iciptr); 
if  (Vos_String_EquaI  (“pkptrl" ,  vor^name)) 

*var_p_ptr  =  (char  *)  (&prs_ptr*>sv_pkpJrl); 
if  ( Vos_bniing_Equal  (“ppp.pkptrJ,” ,  var.namc)) 
*var_p_ptr  =  (char  ♦)  (&pri._ptr->sv_ppp_pkpo-l); 
if  (VDS_String„Eiqu;il  (“ppp_pkptr2’’ .  var_nainc)) 
*varjj_ptr  *  (char  •)  (&prs_ptr->sv_ppp_pkptr2); 
if  ('V[)s_String.  Equal  (“hi$t_len’’ ,  var_namc)) 

*var_p_ptr  =  (char  *)  (&prs_ptr'>s\_hisi_lca); 
if  (Vos_Soing_Equal  (“link_status”  ,  var.name)) 
■*'var_j)j)tr  »  (char  *)  (&pr5_ptr->sv  ,iink_status); 
if  (Vos_String_Equal  (“pkt5_in_ciTor’’ .  var_nanic)) 

•var_j)4){r  =  (char  ♦)  (&prN_piT->sv_pkts_in_ciTor); 
if  (Vos_String_Equal  ("oJd^raoo" ,  var_name)) 
•var_p_ptr  =  (char  •)  <&prs_ptT->sv_old_ratio); 

Foirr. 

) 


void 
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sp_fddi_gen  ..tcp_diag  () 

{ 

Packet  '^pkptr,  ♦ipjjkptr; 
im  pklen; 

int  dest_addr; 

im  ij,  restricted; 

int  pkt_prio; 

int  nmn_erTois; 

double  new_ratio.  uppcr_thresh.  lower_thresh; 

double  LQR_trans_delta; 

double  crcaiion_iimc; 

Ici  *ip_iciptr, 

FtN  (sp_fddi_gen_tq)_diac  ()) 


Four. 

} 


void 

sp_fddi_jgcn_icp_tcrnun8tc  0 

1 

Packet  ♦pSq)tr,  •ip_pkptr; 
ini  pklen; 

int  dcst_addr; 

int  ij.  restricted; 

int  pkt  j)rio; 

int  nuiE_eiToi's; 

double  new„ratio.  upper_tliresh.  lowcr_tbrcsh; 

double  LQR_trans_dclta; 

double  creation.time; 

lei  •ipjciptr; 

FIN  (sp_fddi_gca_tcp_tcrminatc  ()) 


Four 

} 
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Compcode 

sp_fddi_gen_tcpjnit  (pr_  state jjptr) 

sp_fddi_gcn„tcp_state**pr_state_pptr; 

{ 

static  VosT_Cm_Obtypcobtype  =  OPC_NIL. 

FIN  (sp_fddi  jgcn_tcp_imt  (pr_state_pptr)) 

if  (obtype  =«  OPC_NIL) 

{ 

if  (VBS_CatmeiD_Register  (“proc  state  vars  (sp_fddi_gen_tcp)”, 

sizeof  (sp_fddi_gen_tcp_state),  Vbs_Nop.  Aobtypc)  =  VOSC_FAILURE) 
FRET  (OPC_COMPCODE„FAILURE) 

if  ((•pr_state_pptr  =  (sp_fddi_gen_tcp_state*)  \bs_Catmein_Alloc  (obtype,  1))  = 
OPC.NIL) 

FRET  (OPC_COMPCODE_FAILlJRE) 
else 

(*pr_statc_pptr)->current_block  =  0; 

FRET  (OPC_COMPCODE_SUCCESS) 

} 

} 


strua  liistory_dcinent  *crcate_lii  story  (size) 
lOt  size; 

returns  a  pointer  to  tbe  first  element  in  a  circyiar  linked  list  *l 

{ 

strua  historj'^dement  *p,  *ncw.  *stan; 
iot  i; 


for  (is!l;i<=si2c;++i) 

printf  ("inside  on  iteration  %d  %(ryn”.i.size); 

new  =  (strua  history _dement*)malioc(sizeof(strua  history _element)); 

if(!new) 

printfC'ERROR:  MEMORY  ALLOCATION”); 
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exit(l); 

} 

if  0=1) 

{ 

p  =  new; 
start  =  new; 

) 

else  p->next  =  new;  /*  stick  new  element  on  end  of  list*/ 
new->next  =  NULL; 

new->num_errs  =  0; 
p  =  new; 

} 

p->next  -  start; 
return  (start); 

} 
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APPENDIX  L 

TCP  RING  1  LLC..SINK  MODULE  CODE 
“sp_fddi_sink_tcp.pr.c” 


/■*  Process  model  C  form  file:  sp_fddi_siiik.pr.c  */ 
Portions  of  ttiis  file  Copyright  (C)  MIL  3,  Inc.  1992  */ 


/*  OPNET  system  definitions  "'/ 
#include  <opnet.h> 

#include  “sp_fddi_sink.pr.h’’ 
FSM_EXT_DECS 


/*  Header  block  •/ 

I*  Globals  *! 

r  airay  format  installed  20JAN94;  positions  0-7  represent  the  asynch  priority  levels,  PRIORITIES 
+  1  */ 

I*  rep.'.'csents  synch  traffic,  and  grand  totals  arc  as  given  in  the  original.  */ 

#definc  PRIORITIES  8  /*  20JAN94  •/ 

^define  XMITTER_BUSY  0/‘10MAY94*/ 

#define  LU:_SOURCE_INPUT_STREAM  1  /♦26JUL94*/ 

#define  MAC_INPUT_STREArvI  0 

static  I*  05FEB94  ♦/ 

double  fddi2_sink_accum_dday  =  0.0; 

static  !*  05FEB94  ■*/ 

double  fddi2_sink_accum_ddsy.a[PRIORinES  +  1]  =  |0.0.  000000000000 

0.0. 0.0);  . 

static  r  05FEB94  */ 
int  fddi2_sink_totalj>kts  =  0; 
static  /*  05FEB94  */ 

iot  fddi2_sinkjotal_pkts_arPRIORITIES  +  1]  =  |0. 0.  0, 0,  0. 0. 0, 0  0}; 

static /*  05FEB94  */ 

dotible  fddi2  sink  total  bits  ”■  0.0; 
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static  /*  05PEB94  •/ 

double  fddi2_sink„total_bits_Ji(PRIORrnES  +  1]  =  {0.0,  0.0,  0.0, 0.0,  0.0,  0.0,  0.0,  0.0, 
0.0); 

staUc  /♦  05FEB94  *! 

double  fddi2_sink_p6ak_delay  =  0.0; 

static  /*  05FEB94  */ 

double  fddi2_sink_peak_delay_a[PR!ORmES  +  2]  =  { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.C, 

0.0); 

static /*05FEB94*/ 

int  fddi2_sinl:_sc<iIar_wTite  =  0; 

static /*05FEB94*/ 
inf  pri2_set  =  20;  /■*  20JAN94  */ 
double  busy  =  0.0;  /*  10MAY94  ’*■/ 

/*  Statistics  used  for  command  link:21  APRW  */ 
static 

int  fddilp2_total_pkt5;  =  0; 
static 

int  fddilp2_total_pkts_a[PRIORrnES  +  1]  =  |0. 0, 0. 0, 0, 0, 0, 0, 0); 

static 

double  fddilp2_total_bits  =  0.0; 
static 

double  fddUp2_total_bifs_alPRIORITlES  +  i]  =  {0.0, 0.0, 0.0, 0.0, 0,0, 0.0. 0.0, 0.0, 0.0); 

/*  Externally  defined  globals.  */ 
extern  doublefddLt_opr  []; 

/*12JAN94:atmbutes  from  the  Environment  file  */ 
double.  Offered_Load;  /*  12JAN94  */ 
double  Asyncb_Offered_Load;  /*  12JAN^  */ 

/*  transition  expressions  */ 

#define  END_OF_SIM  opJntrpt_type()  —  OPCJNTRPT_ENDSIM 


/♦  State  variable  definitions  */ 
typcdef  struct 
{ 

FSM  ;ys..state 

Gshandlc  sv_thru2_^shandle; 

Gsbandle  sv_m2_delay_gshandle; 
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Gshandle  sv„eie2_del  y_gshanclle; 
Gshandle  sv_thni2_gsban<lle_a[10]; 
Gshandle  sv_m2_delay_gshandle_a[101; 
Gshandle  sv_ete2_delay_gshandle_a[9]; 
Gshandle  sv_t2_jgshandle: 

Gshandle  sv_t2_gshandle_atl0]; 

Objid  sv_my_id; 

}  sp„fddLsink_state; 


#define  pr_state_ptr 
#define  thni2_gshandle 
#defirie  m2_,delay_gshandle 
#define  ete2_delay_£shan<Ile 
#define  thru2_gshandle_a 
#define  m2_delay_gshandle_a 
#define  ete2_delay_gshandle_  a 
#define  t2jgshandle 
#define  t2_gshandle_a 
#define  my_id 


((sp_fddi_sink_state*)  Siml_Mf>d_State_Ptr) 

pr_state.jptr->sv_thra2_gshandle 

pr_state_ptr->sv_m2_delay_gshandle 

pr_state.ptr->sv_ete2_delay_gshandle 

prostate j)tr->sv_thra2_5shandle_a 

pr_statejitr->sv_m2_dday_gshandle_a 

pr_state_ptr->sv_ete2_dday_gsh8ndle_a 

pr_state_ptr->sv_t2_gshandle 

pr_state_p'iT->3v_t2_gshandle_a 

pr_state_ptr->sv_my_id 


/♦  Process  modd  interrupt  handling  procedure  *l 


void 

sp_fddLsink  () 


double 

dday,  creat_time; 

Packet* 

pkptr; 

Packet* 

ppp_pkptr; 

Packet* 

pkptrl ;  /*5APR94*/ 

int 

src_addr.  niy_addr; 

int 

dest_addr./*  14AFR94*/ 

Id* 

£roin_mac_id_ptr. 

double 

fddi_s»nk_ttn; 

char 

pk_fonnat[101; 

int 

input_stream; 

int 

fd  Jndex,  FDDI_frame_.size; 
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FSM_ENTER  (sp_fcidi_siak) 

FSM_BLOCK_SWnCH 

{ 

/♦ - - - *! 

/**  state  (DISCARD)  enter  executives  **/ 

FSM.  .STATE_ENTER..UNFORCED  (0.  stateO_enter_exec,  “DISCARD”) 

{ 

/*  determine  the  type  of  interrupt  */ 
switch(op_intipt_type()) 

{ 

/*  check  if  transmitter  is  busy  V 
case  OPC_INTRPT_STAT; 

{ 

busy  =  op.stat Jocal_read  (XMnTER_BUSY); 
break; 

} 

/*  check  if  a  packet  has  arrived  */ 
case  OPC_INTRPT_STRM; 

{ 

/*  get  the  packet*/ 
input_stream  =  op_intrpt_strm(); 
pkpu  =  qp_pkjget  (input_stream); 
opjpk_fonnat(pkptr,pk_format); 

/*  if  the  packet  is  a  ppp  control  packet  from  the  Uc.sourre  */ 
if  ((strcmp(pk_format  ”ppp”)=0)  &&(input_stream  = 
LLC_SOURCE_INPUT_STREAM)) 

/*  bypass  all  this  and  send  pkt  out  on  the  command  link  */ 

} 

else 

{ 

/*  assume  this  is  a  FDDI  frame  ♦/ 
from_mac_ici_ptr  =  op_intrpt_ici  0; 

/*  20JAN94;  get  the  packet's  priority  level,  which  */ 

/*  will  be  used  to  index  arrays  of  thruput  and  delay  */ 

/*  compuutions.  */ 

/*  pri2_set  =  op_pk_priority_get  (pkptr);  doesn’t  work  here  */ 
opj)k_nfd_get  (pkptr,  “pri”,  &pri2„set);  /*  29JAN94  */ 

/*  determine  the  time  of  creation  of  the  packet  */ 
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op _pk  .iifd_gei  (pkptr,  “a_time”.  &creat_:irae); 


/*  determine  the  dest  address  of  the  packet  */  /*18APR94*/ 
op.  j)k_iifd_get  (pkptr,  “dest_addr”,  &dest_addr); 

/*  7APR94:determine  id  cf  own  processor  to  use  in  finding  */ 

/*  station  address  of  the  bridge  node  */ 
rnyjd  =  op_id_self(); 

/*  14APR94 :  also  get  my  own  address  */ 
op„ima_obj_attr_get  ( my_id.  “station_address”,  &my_addr); 

!*  destroy  the  packet  */ 

/*  op_pk_destroy  (pkptr);  */ 

/♦  03FEB94:  rather,  enqueue  the  packet.  This  will  be  the  */ 

/*  first  step  toward  developing  a  LAN  bridging  structure.  */ 

/*  -Nix  */ 

/*  op_subq_pk_insert  (pri_set,  pkptr,  OPC_QPOS_TAIL);  */ 

/*  14APR9^k  check  the  frame  passed  to  “11c”  is  destined  for  */ 

/*  this  station.  If  it  is  destroy  the  packet;  if  not,  allocate  the  packets  */ 

/*  to  the  command  link  transmitter  since  they  are  destined  for  the  remote 

Ian  */ 

/*  -Karayakaylar  *! 

I*  determine  the  packets  coming  firom  surface  stations,  this  will  */ 

/*  be  counted  for  local  traffic  */ 

/*  9(nine)  is  model  specific,  this  is  the  “station_number”  of  */ 

/*  collection  platform  bridge  station  */ 
if((dest_addr  =  my_addr)&&(src_addr  >  9)) 

{ 

/*  add  in  its  size  */ 

fddi2_sink_total_bits  +=  op_pi:_totaJ_sizejget  (pkptr); 
fddi2_sink_to:al_bits_a[pri2_set]  +=  op4)k_total_size _get  (pkptr);  /* 

20JAN-20APR94  */ 


/*  accumulate  delays  •/ 

delay  =  op_sira_iirac  ()  -  creat_timc; 

fddi2_sink_accum_delay  +=  delay; 

fddi2_,sink_.accum..delay_alpri2_sct]  +=  delay;  /*  20JAN-20APR94  */ 

/ '  keep  track  of  peak  delay  value  */ 
if  (delay  >  fddi2_sink_peak_delay) 
fddi2_sink_peak_delay  =  delay; 
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/*  20JAN94.  keep  track  by  priority  levels  as  well  23JAN'20APR94  */ 
if  (delay  >  fd(li2_sink_peak_delay_a[pri2_set]) 
fddi2_sink_peak_delay_a[prj2_set]  =  delay; 

op_pk_destroy  (pkptr); 

I*  inaemeat  packet  counter;  20JAN94  */ 
fddi2_sink_total _pkts-H-; 
fddi2_sink_total_pkts_a|pri2_set]-H-; 

/*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

/*  03FEB9-t;  [0]->t7J  represent  asynch  priorities  l->8,  */ 

/*  respectively;  [8]  r^resents  synchronous  traffic.  */ 

/*  and  fS]  repre$en),s  overall  asynchronous  traffic.-Nix  */ 
if  (fddi2_siuk„toMl_pkts  %  25  =  0) 

{ 

op_stat_global_vTite  (thru2_gshandle, 
fddi2_sink_tctal_bits  /  op_sim_time  0); 

op_stat_global_write  (Ihru2_^  shandle_a[pri2_set] . 
fddi2_sink_total_bits_a[0]  /  op_sim_tiine()); 

op„stat_global_write  (thru2_gshandle_a[0]. 
fddi2_sink_total_bits_a[l]  /  op_sim_time()); 

op_stat_global_write  (thru2_^shandle_a[l], 
fd(li2_sink_total_bits_atpri2_set]  /  op_sim_timeO); 

op_stat _globBl_write  (thru2_gshandle_a[2], 
fddi2_sink_total_bits_a[2]  /  op_sim_time()); 

op_stat _global_write  (thru2_^shandJe_a[3], 
fddi2_sink_total_bits_a[3]  /  op_5im_time()); 

op_stat_global_write  (thru2 _g?baiidle_a[4], 
fddi2_sink_total_bits_a[4]  /  op_sim_time()); 

op_stat _global_write  (thru2_gshandlc_a[5], 
fddi2_sink_total„bits_a(5]  /  op_sim_t;me()); 

op_stat _^obal_writc  {thru2_gshandle_a[6], 
fddi2_sink_total„bits_a(6]  /  op_sim_time()); 

op_stat_global_writc  (thru2  _gsbandle_a[7], 
fddi2_sink_U)ial_bjts_a[7]  /  op_sim_time()); 

op_stat _^obal_write  (thru2  ,gshandlc_a[8], 
fddi2_s!nk_total_bits_a[8]  /  op_sini_time()); 

/*  30JAN94:  gather  all  asynch  stats  into  one  overall  figure  V 
op_stat _^obi»l_write  (thru2_gshan(Jle_a[91, 
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(fddi2_sink_totai_bits  -  fddi2_sink_U)taI„bits_a[8])  / 
op_siin_time()): 


/*  (fddi2_sink_totai_bit3_a[0]  +fddi2_sink_total_bits_a[l]  -f  */ 
/*  fddi2_sink_total_bits_a[2]  +  fddi2_sink_total_bits_a[3]  +  */ 
/*  fc!di2_sink_total_bits_a[4]  +  fddi2_.sink_total_bits_a[5]  +  */ 
fddiii_sink_total_bits._a[6]  +  fddi2_.siak_total_bits_a[7])  /  */ 
/*  op_sim_time()):  */ 


op_stat_^ohal_write  (m2_deliiy_gshandle, 
fddi2_sink,_accum_delay  /  fddi2_sink_total_pkts); 

op_stat_global_’.vrite  (m2_delay_gshandle_a[0] . 
fddi2_sink_accum_delay_a[Gj  /  fddi2_sink_total_pkts_a[0]); 

op_stat_global_write  (in2_  delay_gshandle_a[l] , 
fddi2„sink_accum_del;iy_a[l]  /  fddi2_sink_total_pkts_a[l]): 

op_stat_global_writ.e  (ni2_aelay_gshaiidle_a[2] , 
fddi2_sink_accum_delay_a[2]  /  fddi2_sink_total_pkts_a[2]); 

op_stat_global_write  (ni2_dday_gshandie_a[3] , 
fddi2_sink_act'aim_dday_at3]  /  fddi2_sink_total_pkts_a[3]); 

op_stat _g)obal_write  (m2_delay_gshandle_at4], 
fddi2_siiik  _accum_dday_a[4]  /  fddi2_sink_u)ta]_pkts_a[4]); 

op_stat_^obal_write(m2,.dday_gshandlc_a[5], 
fddi2_sinl£_accum.,dday_a[5J  /  fddi2_siiik_total_plas_a[5]); 

op_stat _glob?J_write  (m2_dday_gslU(ndle_a[6], 
fddi2_sink_accuiQ_dday_a[6]  /  fddi2_sink_toiaI.j>lcts_a[6]); 

op_stat_globaJ_write  (in2_dday_gshacdle_af7] , 
fddi2_siiik_accum_dday_a[7]  /  fddi2_sink_tota]_pkts_a[7]); 

op_sta:_global_write  (m2_dday_gshandle_a[8] , 
fddi2_sink_accuin_dc!ay_aI8]  /  fdoi2_sink_total_pkts_a[8]); 

/*  30JAN94:  gather  all  asynch  stats  into  one  figure  */ 
op_stat_global_-ATjte  (m2_dday  _gshandle_a[9j , 
(fddi2_sirjc_accum_dday  -  iddi2_sink_accuin_(jelay_a[8])  / 
(fddi2_sitii'c_total_plas  -  fddi2_sink_total  j>kts_:3[8])); 


/*  (fddi2_sink_accum_dday_a[0]  +  fddi2_smk_ac<njm_dday.,a[l]  +  ”/ 
/*  fddi2_sink_accum_ijday_a .2]  +  fddi2_sink„accum_delay_a[3]  +  *! 
r  fddi2_sink_accuin_dday_a[4]  +  fddi2_sijJ£_accuiii_delay_.a[5]  +  */ 
/*  fddi2_siiik_accuni_dday_a[6]  +  fddi2_sink_.acxuni_delay_a[7])  /  */ 
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/*  (fddi2_sink_total_pkis_a[0]  +fddi2_sink_total_pkts_a[l]  +  *! 
!*■  fddi2_sirik,.total_pkts_  a[2]  +  fddi2_.sink_total_pkts_a[3]  +  */ 
/*  fddi2_sink_total_pkts_a[4]  +  fddi2_sink_total_pkts_a[5]  +  */ 
/*  fddi2_sink_total_pkts_a[6]  +  fddi2_sink._total_pkts_a[7]));  */ 


/*  also  record  actual  delay  values  *! 

op_stat_^obal_write  (ete2_delay_gshandle,  delay); 

op_stat _global_write(ete2_dday_gsliandle_a[pii2_set],  delay); 

} 

}/*end  of  if(dest_ad<li^my_addr)&&(src_addr  >  9)statement  */ 

/*  20APR94:  destroy  the  packets  comiug  from  the  first  Ian  destined  */ 
/*  for  this  station.These  packets  are  not  counted  for  local  traffic,*/ 
else  if(dest_addr  =  my_addr) 
op_pk_destroy(pkptr); 


/*  Other  firames  passed  to  “11c”  should  be  destined  for  other  Ian  */ 

/*  18APR94  :allocate  the  packets  to  transmitter  of  command  link  */ 
else 
{ 

/*  add  in  its  size  */ 

fddilp2_total_.bits  +=  op_pk_total_size_get  (pkptr); 
fddilp2_total_bits_a[pri2_set3  +=  op  jpk_total_size_get  (pkptr);  /* 

20JAN-20APR94  */ 


/*  inaemem  packet  counter;  20APR94  */ 

fddilp2_total_pkis-H-; 

fddilp2_total_pkts_a[pri2_set]-H-; 

/*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 
/*  [0]->I7]  represent  asyneb  priorities  l->8,  */ 

/*  respectively;  18]  represents  synchronous  traffic,  */ 

/*  and  [9]  represents  overall  asynchronous  traffic.-Nix  */ 
if  (fddilp2_total  j)kis  %  25  =  0) 

{ 

op_stat  _gJoba]_write  (t2_gshanclle, 
fddilp2_total_bits  /  op_siin_time  ()); 

op_stat_global.  .write  (t2 _gshandle_a[pri2_set], 
fddilp2_total_bits_a[0]  /  op_sim_time()); 
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op_stat,^obal_write  (t2  _gshaDdle_atO], 
fcIdilp2_total_bits_a[l]  /  op_sim_iime()); 

op_stat_globai_write  (t2_gshandle_a[]  ], 
fddilp2_total_bits_a[pri2_set]  /  op_sim_time()); 
op_stat _global_write(t2_^shandle.  a[2], 
fddilp2_total_bits_a[2]  /  op_sim_time()); 
op_stat_global_write  (t2_gshandle_a[3]. 
fddilp2_total_bits_a[3]  /  op_sim_time()): 
op_stat_global_write  (t2_gshandle_a[4], 
fddilp2_total_bits_at4]  /  op_sim_time()); 
op_siat_global_write  (t2_gshandle_a[5], 
fddiip2_total_bits_a[5]  /  op_sim_timeO); 
op_stat_global_write  (t2_gshandle_a[6], 
fddilp2_total_bits_a[6]  /  op_sim_time()); 
op_stat_global_write  (t2_gshandle..a[7], 
fddilp2_total_bits_a[71  /  op_sim_time()); 
op_stat_global_write  (t2_gshandle_a[8], 
fddilp2_total_bits_a[81  /  op_sim_time()); 

/*  gather  all  asynch  stats  into  one  overall  figure  *! 
op„stat_global_write  (t2_gshandle_a[9], 
(fddilp2_total_bits  -  fddilp2_total_bits_a[8])  / 
op_sim_time()); 


/*  (fddilp2_total_bits_a[0]  +  fddilp2_total_bits_a[l]  +  */ 
/*  fddilp2_total_bits_aI2]  +  fddilp2_total_bits_a[3]  +  *! 
/*  fddilp2_total_bits_aI4]  +  fddilp2_total_bits_a[5]  +  */ 
I*  fddilp2_total_bits_£C6]  +  fddUp2_total_bits_a[7])  /  */ 
/*  op_sim_timc());  */ 


} 

/*  21  APR94:allocatc  packets  to  the  command  link  transmitter  *! 
I*  altered  for  ppp  1AUG94  •/ 
ppp_pkpir  =  op4>k_CTeatc_fmt(‘’ppp_ml"); 
op_pk_nfd_sei  (ppp.  pkptr,  “pid_h”.  0x00); 

op_pk_nfd_sci  (ppp  “pid_r\  0x3d); 
op_pk_nfd_sct  (ppp_pkpiT,  ‘*FDDI_frame”,  pkptr); 

/*  put  ppp  packet  on  subqueue  to  be  xmitted  */ 
op_subq_pk_insen(0,  ppp_pkptr,  OPC_QPOS_TAIL); 


213 


}/*  end  of  else  */ 

}/*  end  of  else  for  (if  ppp  and  from  LLC_source)  */ 

/*  check  if  this  subqueue  is  empty  and  transmitter  is  not  busy  */ 
if  ((!op_subq_empty(0))&4&(busy  =  0.0)) 

{ 

/♦access  the  first  packet  in  the  subqueue  */ 

pkptrl  =  op_subq_pk_remove  (0.  OPC_QPOS_HEAD); 

/♦  forward  it  to  the  transmitto*  of  command  link  ♦/ 
op_pk_send  (pkptrl.  0); 

} 

break; 

}/*  end  of  case  OPC_INTRFr_STRM  statement  ♦/ 

}/*  end  of  switch  */ 


} 


/♦*  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXIT  ( 1  .sp_fddi_siiik) 


/♦♦  state  (DISCARD)  exit  executives  •♦/ 

FSM_STATE_EXIT_UNFORCED  (0.  siateO_exit_cxec.  “DISCARD”) 

{ 

} 


/**  state  (DISCARD)  transition  processing  ♦*/ 
FSM_INIT_COND  (END_PF_SIM) 
FSM_DFLT_COND 
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FSM_TEST_LOGIC  (“DISCARD”) 

FSM_TRANSn'_SWITCH 

{ 

FSM_CASE_TRANSIT  (0,  1.  state l_enter_exec, ;) 
FSM_CASE_TRANSIT  (1,0,  stateO_enter_exec, ;) 
} 

j* - */ 


/**  state  (STATS)  enter  executives  **/ 

FSM_STATE_ENTER_UNFORCED  (1,  state!  _entsr_exec.  “STATS”) 

{ 

/*  At  end  of  simulation,  scalar  performance  statistics  */ 

/*  and  input  parameters  are  written  out  */ 

/*  This  is  for  command  link  throughput  :2iAPR94*/ 

op_stat_scalar_write  (“CL  Throughput  (bps).  Priority  1”, 
fddilp2_total_biLs_aI0]  /  op_sim_time  ()); 

op„stat_scalar_write  (“CL  Throughput  (bps).  Priority  2”, 
fddilp2_total_bits_a[l]  /  op_sim_time  0); 

op_stat_scalar_v/rite  (“CL  Throughput  (bps).  Priority  3”, 
fddilp2_total_bi‘S_at2]  /  op.  .sim_time  0); 

op_stat_scalar_write  (“CL  Throughput  (bps).  Priority  4”, 
fddilp2_total_bits_a[3]  /  op_sim_time  ()); 

op_stat_scalar_write  ("(X  Throughput  (bps).  Priority  5”. 
fddilp2_total_bits_ai4]  /  op_sim_time  ()); 

op_stat_scalar_write  ("CX  Throughput  (bps).  Priority  6”, 
fddilp2_total.,bits_a[5]  /  op_sim_timc  0); 

op_sut_scalar_ write  ("CL  Throughput  (bps).  P>  iority  7”, 
fddilp2_total_bits_a[6]  /op_sim_timc  ()); 

op_stat_scalar_write  (“CL  Throughput  (bps).  Priority  8”, 
fddilp2_total_bits_a[7]  /  op_sim_tirac  ()); 

op_stat_scalar_write  (“(X  Throughput  (bps).  Asynchronous”. 
(fddilp2_total_bits  -  fddilp2_total._bits_aI8))  /  op.  sim_tinie  ()): 
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/*  (fddilp2_total_bits_a[0]  +  fddilp2_total_bits_a(ll  +  */ 
/*  fddilp2_total_bits_a[2]  fddiip2_total_bits_a[3]  +  */ 
I*  fddilp2_total_bits_a[4]  +  fddilp2_total_bits_a[5]  +  */ 
/*  fddilp2_total_bits_a[6]  +  fddilp2_total_bits_a[7])  /  *! 
t*  op_sim_time  ()):  */ 


op_stat_scalar_write  (“CL  Throughput  (bps).  Synchronous”, 
fddUp2_total_bits_a[8]  /  op_sim_time  ()); 

op_stat_scalar_write  (“CL  Throughput  (bps).  Total", 
fddilp2_»otal_bits  /  op_sim_time  0); 


I*  Only  one  station  needs  to  do  this  for  the  second  ring(Ring  1)*/ 
if  (!fddi2_sink_scalar_write) 

{ 

I*  set  the  scalar  write  flag  */ 
fddi2_sink_scalar_writc  s!  1; 

op_stat_scalar_write  (“Mean  End-to-End  Delay-1  (sec.),  Priaity  1”, 
fddi2_sink_accum_dcl8y_a[01  /  fddi2_sink_total_pkts_a[0]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- l(sec.),  Priority  2”, 
fddi2_sink_accum_delay_a[l]  /  fddi2_sink_total_pkts_a[l]); 

op_stat_scalar_writc  (“Mean  End-to-End  J3day-1  (sec.).  Priority  3”. 
fdcji2_sink_accuin_delay_a[2]  /  fd(!i2_sin!£_total_pkts_a[2]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.),  Priority  4”, 
fddi2_sink_accum_delay_a[3]  /  fddi2_sink_U).alj)ku_a[3]): 

op_stat_scalar_writc  (“Mean  End-to-End  Delay- 1  (sec.).  Priority  5", 
fddi2_sink_accum_dday_a[4]  /  fddi2_sink_iotal_pki5_a[4]); 

op_siat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.).  Priority  6”, 
fddi2_sink_accuin_delay_a[5]  /  fddi2_sink_totalj)kts_a[5]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.).  Priority  7”. 
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fddi2_sink_accuni_delay_at6]  /  fddi2_sink_total_pkts_a[6])' 


op_stat_scalar_write  (“Mean  End-to  End  Delay- 1  (sec.),  Priority  8”, 
fddi2_sink_accum_delay_a[7]  /  fddi2_sink_total_pkts_a[7]): 

op_stat_scalar_wiite  (“Mean  ELnd-io-End  Delay-1  (sec.).  Asynchronous”, 
(fddi2_sinj£_accuin_delay  -  fddi2_sink_accum_delay_a[8])  / 
(fddi2_sink_total_pkts  -  fddi2_sink_total_pJas_  a[8])); 

/*  (fddi2_sink_aicaim_delay_a[0]  +  fddi2_sink_accum_delay_a[l]  +  */ 
/*  fddi2_sink_accum_delay_a[2]  +  fddi2_sink_accum_delay_a[3]  */ 

/*  fddi2_sink_accum_delay_a[4]  +  fddi2_sink_accum_delay_a[5]  +  */ 

/*  fddi2_sink_accum_delay_a[6]  +  fddi2_sink_accum_delay_a[7])  /  */ 

/*  (fddi2_sink_total_pkts_a[0]  +  fddi2_sink_total_pkts_a[l]  +  */ 

/*  fddi2_sink_total_pkts_a[2]  +  fddi2_sink_total_pkts_a[3]  +  */ 

/*  fddi2_siak_total_pkts_a[4]  +  fddi2_sink_total_pkts_a[5]  +  */ 

/*  fddi2_sink_total_pkts_a[6]  +  fddi2_sink_total_pkts_a[7]));  ♦/ 


op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.).  Synchronous”, 
fddi2_sink_accum_delay_a[8]  /  fddi2_sink_total _pkts_a[8]); 

op_stat_scalar_write  (“Mean  End-to-End  Delay- 1  (sec.),  Ibtal”, 
fddi2_sink_accum_delay  /  fddi2_sink_total jikts): 

op_stat_scalar_write  (“Throughput- 1  (bps).  Priority  1”, 
fddi2_sink_total_bits_a[0J  /  op_sim_time  ()); 

op_stat_scaiar_write  (“Throughput- 1  (bps).  Priority  2”, 
fddi2_sink;_total_bits_a[l]  /  op_sim_time  ()); 

op_stat_scalar_write  (“Throughput- 1  (bps).  Priority  3”, 
fddi2_.siuk_total_bits_a[2]  /  op_sim_iiine  ()); 

op_  stat_scalar_writc  (“Throughput-l(  bps).  Priority  4", 
fddi2_sink_total„bits_a(3J  /  op_siin_tiinc  ()); 

op_stat_scalar_writc  (“Throughput- 1  (bps).  Priority  5". 
fddi2_sink._total_bits_a(4J  /  op_sim_timc  ()); 

op_stat_scalar_write  (“Throughput- 1  (bps).  Priority  6”, 
fddi2..sink_total_bits_a[5J  /  op_sini_time  ()); 
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op_stat_sc4lar_write  (“Throtighpm-1  (bps).  Prioriiy  7”, 
fddi2_sink.,total_bits_a[6]  /  op_sim_ume  ()); 

op_stat_scalar_write  (“Tliroughput-l  (bps).  Priority  8”, 
fddi2_sink.  jota]._bits_a[7]  /  op_sim_time  ()); 

op_stat_scalar_write  (“Throughput- 1  (bps).  Asynchronous”, 
(fddi2_sink„total_bits  -  fddi2_sink_total_bits_a[8])  /  op_siin_ume  ()); 


/*  (fddi2_sink_total.  bits_a[0]  +  fdd'2_sink_total_bits_a[l]  +  */ 
/*  fddi2_sink_total_bits_a[2]  +  fddi2_sink_total_bits_aI3]  +  */ 
/*  fddi2_siDk_total_bits_a[4]  +  fddi2_sink_total_bits_a[5]  +  */ 
/*  fddi2_sink_total_bits_a[6]  +  fddi2_sink_total_bits_a[7])  /  */ 
/*  op_sim_time  ());  */ 


op_stat_scalar_write  (“Throughput- 1  (bps).  Synchronous". 
fddi2_sink_total_bits_a(8]  /  op_sim_time  ()); 

op_stat„scalar_write  (“Throughput- 1  (bps).  Total”, 
fddi2_sink_total_bits  /  op_sim_tirae  ()); 


op_stat_scalar._write  (“Peak  End-to-End  Delay- 1  (sec.),  Priority  1”, 
fddi2_sink _peak_delay_a[0]); 

op_stat_scalar_ write  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  2", 
fddi2_sink_peak_d  Jay_a[  1]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay- 1  (.sec.),  Priority  3”, 
fddi2_sink_peak_dday_a[2]); 

op_stat_scalar_writc  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  4”, 
fddi2_sink_peak_dday_a[3I ); 

op_stat_scalar.. write  ("Peak  End-to-End  Dday-1  (sec.).  Priority  5", 
fddi2_sink_peak_dday_a(4J ); 

op_stat_scalar_write  (“Peak  End-to-End  Dday-1  (sec.).  Priority  6”, 
fddi2_sink_peak_dday_a[5]); 
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op_stat_scalar_wriU;  (“Peak  End-to-End  Delay- 1  (sec,).  Priority  7”. 
fddi2_sink_peak_delay_a[6]); 

op_stat_scaIar_writ£  (“Peak  End-to-End  Delay- 1  (sec.).  Priority  8”, 
fddi2_sinkj)eak_dela>'_a[7]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay- 1  (sec.),  Synchronous’ 
fddi2_sink_peak_delay.  ,a[8]); 

op_stat_scalar_write  (“Peak  End-to-End  Delay- 1  (sec ).  Overall”, 
fddi2_sink_peak_delay); 


I*  Write  the  TTRT  value  for  ring  0.  This  preserves*/ 

/*  the  old  behavior  for  single-ring  simulations.*/ 
op_stat_scalar_write  (“TIRT  (sec.)  -  Ring  1”, 

^ddi_t_opr  [1]); 

/*  12JAN94;  obtain  offered  load  information  from  the  Environment  */ 
/*  file:  this  will  be  used  to  provide  abscissa  information  that  */ 

/*  can  be  plotted  in  the  Analysis  Editor  (see  “fddLsink”  STATS  */ 

/*  state.  To  the  user:  it’s  your  job  to  ktep  these  cuirent  in  */ 

/*  the  Euvironment  File.  -Nix  */ 

op_ima„sim_attr_get  (OPC_IMA_DOUBLE,  “total_offered_load_l”, 
&Oflfered_Load): 

op_ima_sim_attr_get  (OPC_IMA_DOUBLE,  “asynch_offercd_load_l 
&Asynch_Offered_Load): 


/*  12JAN94;  write  the  total  offered  load  for  this  run  */ 
op_stat_scalar_MV'rite  (“Total  Offered  Load- 1  (Mbps)”, 
Offered_Load); 

op_stat_scalar_write  ("Asynchronous  Offered  Load-1  (Mbps)”, 
Asynch_Offered_Load): 

} 

} 


/**  blocking  after  enter  executives  of  unforced  state.  **/ 
FSM_EXn'  (3,sp_fddi_sink) 
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!**  state  (STATS)  exit  executives  **! 

FSM_STATE_EXTT_UNFORCED  (1.  statel_exit_exec.  “STATS") 

{ 

} 


/*♦  state  (STATS)  transition  processing  **! 
FSM_TRANSIT_MISSING  (“STATS”) 

j* - *! 


I**  state  (INTT)  enter  executives  **/ 

FSM_STATE_ENTER„FORCED  (2.  state2_entcr_exec,  “INTT’) 

{ 

/*  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 

/*  20JAN94;  set  array  format  */ 

thru2_gshaniUe_a[0]  =  op_stat.^obal_rcg  (“pri  1  throughput- 1  (bps)’’); 
thru2_gshandle_a[i]  =  op_stat_giobal_reg  (“jai  2  throughput- 1  (bps)”); 
thru2_gshandie_a[2]  =  op_stat_global_reg  (“iwi  3  throughput- 1  (bps)”); 
thru2_gshandle_a[3]  =  op_.stat_global_rcg  (“pri  4  throughput- 1  (bps)”); 
thru2_gshanclle_al4]  =  op_stat_global_rcg  (”pri  5  throughput- 1  (bps)”); 
thru2_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  throughput- 1  (bps)”); 
thru2_gsharuUe_a[6]  =  op_stat._global_reg  ( 'pri  7  throughput- 1  (bps)”); 
thru2_gshsndle_a[7]  =  op_stat_global_ieg  (“pri  8  throughput- 1  (bps)”); 
thru2_gsliandle_a[8]  =  op_stat_global_reg  (“synch  th]rouglq>ut-l  (bps)”); 
thru2_gshandle_a[9j  =  op_stat_global_reg  (“asyuc  throughput- 1  (bps)”); 
thru2_gshandle  =  op_stat _globaLreg  (“total  throughput- 1  (bps)”); 

m2_delay_gshandle_a[0]  =  op_stat _global_reg  (“pri  1  mean  delay- 1  (sec.)”); 
m2_delay_gshandlc_all]  =  op_stat _global_rcg  (“pri  2  mean  delay- 1  (sec.)”); 
m2_delay_gshan(ile_a[2]  =  op_  stat_global_rcg  (“pri  3  mean  delay- 1  (sec.)”); 
m2_delay._gshandle_a[3]  =  op_stat_global_reg  (“pri  4  mean  delay- 1  (sec.)”); 
m2_dclay_gslundlc_a[4]  =  op_stat _global_rcg  (“pri  5  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_a[5]  =  op_stat_global_rcg  (“pri  6  mean  delay-  •  (se/;,V’); 
m2_delay_gshandlc_a[6]  =  op_stat _^obal_reg  (“pri  7  mean  delay- 1  (sec.)  ”); 
m2_delay_gshandle_a[7]  =  op_stat_global_reg  (“pri  8  mean  delay- 1  (sec.)”); 
m2_delay_gshandle_al8]  =  op_stat_global_reg  (“synch  mean  delay- 1  (sec.)”); 
m2_delay_gshandlc_a[9]  =  op_stat _glcbal_reg  (“async  mean  delay- 1  (sec.)”); 
ni2_delay_gshanclJe  =  op_stat _global_reg  (“total  mean  delay-1  (sec.) 

fcte2_delay_gshandle_a[0]  =  op_stat_global_reg  (“pri  1  end-to-end  delay- 1  (sec.)”); 
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e.te2_delay_gshan(ile_a[l]  =  op_stat_global_reg  (“pri  2  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_a[2]  =  op_stat_global_reg  (“pri  3  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_a[3]  =  op_stat_global..reg  (“pri  4  end-to-end  delay- 1  (sec.)”); 
6te2_delay_gshandle_a[4]  =  op_stat_global_reg  (“pri  5  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  end-fo-end  delay- 1  (sec.)”); 
ete2_delay_5shandle_a[6]  =  op_stat^obal_reg  (“pri  7  end-to-end  delay-1  (sec.)”); 
ete2_delay_gshandle_a[7]  =  op_stat_global_reg  (“pri  8  end-to-end  delay- 1  (sec.)”); 
ete2_delay_gshandle_at8]  =  op_stat_giobal_reg  (“synch  end-to-end  delay- 1 

(sec.)”); 

ete2_delay_gshandle  =  op_stat_global_reg  (“total  end-to-end  delay- 1  (sec.)”); 

t2_gshandle_a[0]  =  op_stat_global_reg  (“pri  1  CL  throughput  (bps)”); 
t2_gshandle_a[l]  =  op_stat_globaLreg  (“pri  2  CL  throughput  (bps)”); 
t2_gshandle_a[2]  =  op_stat _global_reg  (“pri  3  CL  throughput  (bps)”); 
t2_gsbaudle_a[3]  =  op_stat_global_reg  (“pri  4  CL  throughput  (bps)”); 
t2_gshandle_a[4J  =  op_stat_global_reg  (“pri  5  CL  throughput  (bps)”); 
t2_gshandle_a[5]  =  op_stat_global_reg  (“pri  6  CL  throughput  (bps)”); 
t2_gshaodle_a[6]  =  op_stat _global_reg  (“pri  7  CL  throughput  (bps)”); 
t2_gshandle_a[7]  -  op_stat_global_reg  (“pri  8  CL  throughput  (bps)”); 
t2_gshandle_a[8]  =  op_stat_global_reg  (“synch  CL  throughput  (bps)"); 
t2_gshandle_a[9]  =  op_stat _global_reg  (“async  CL  throughput  (bps)”); 
t2_gshand[le  =  op_stat_global_reg  (“total  CL  throughput  (l^s)”); 


} 


/**  state  (INTT)  exit  executives  **/ 

FSM_STATE_EXIT_FORCED  (2.  state2_exit_exec.  “INTT’) 

{ 

} 


!**  state  (INTT)  transition  processing  ♦*/ 
FSM_INIT..CONB  (END_OF_SIM) 
FSM_DFLT_COND 
FSM_TEST_L(XiIC  (“INIT’) 

FSM^TRANSIT^SWrrCH 

I 

FSM_CASE_TRANSIT  (0, 1,  state .’_enter_exec, ;) 
FSM_CASE_TRANSIT  (1,0,  stateO_enter_exec, ;) 
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} 


FSM_EXrr  (2,sp._fQdLsink) 

} 


void 

sp_fddLsink_svar  (pis_j)tr,var_name.var_p_ptr) 
sp_fddi_sink_state*prs_ptr; 
char  *var_name,  *’'‘var_p  jir; 

{ 

FIN  (sp_fddi_sink„svar  (prs_ptr)) 


*var_pjptr  =  VOS_NiL: 

if  (Vos_String_F^jal  (“thru2_gshandle” ,  var_iiame)) 

*varjp_ptr  =  (char  *)  (&prs_ptr->sv_thru2_gshandle); 
if  (Vos_Strin^Equal  (“m2_dday_gshandle” ,  var_iiame)) 
*var_p_ptr  =  (char  •)  (&prs_p!r->sv_m2_delay_^shandle); 
if  (Vos_String_Equal  (“ete2_delay_gshandle” ,  var_nanie)) 
*var_p_ptr  =  (char  ♦)  («&prs_ptr->sv_cte2_delay_gshandle); 
if  (\'bs_String_Equal  (“thru2_gshandle_a” ,  var_iiamc)) 
*var_p_ptr  =  (char  *)  (prs_ptr->sv_thru2_^shaiidle_a); 
if  ('Vos_String_Equal  (‘‘m2_dclay_gshandlc_a” .  var_nanie)) 

*var  j)_ptr  =  (char  *)  (prs_ptr->sv_m2_delay_gshandle_a); 
if  ( Vos_String_Equal  (“ete2_delay ^shaiidle_a”  .  var_name)) 
*var_p_ptr  =  (char  ’*')  (prs_pir->sv_cte2_delay_gshandlc_a); 
if  (Vos_String_Eq’jal  (“t2_gshandle” .  var_name)) 

*var_p_ptr  =  (char  *)  (&prs4)ir->sv_t2_gshandlc); 
if  (Vos_String_Equal  (“t2_gshand]c_a” .  var_name)) 

’“varjp.ptr  =  (char  *)  (prs _ptr->sv_t2_gshandlc_a); 
if  (Vos_String_Equal  (“myjd” ,  var_name)) 

*var_p_ptr  =  (char  *)  (&prs_ptr->sv_my_id); 

FOUT, 


222 


} 


void 

sp_fddLsiiik_diag  () 

{ 

double  delay,  creat^time; 

Packet*  pkptr; 

Packet*  ppp_pkptr, 

Packet*  pkptrl ;  /*5APR94*/ 

int  src_addr,  my_addr; 

int  dest_addr;/*14APR94*/ 

Ici*  from_mac_ici_ptr; 

double  fddi_sink_ttrt; 

char  pk_formattlO]; 

int  input_streani; 

int  fd_index,  FDDI_frame_size; 

FIN  (sp_fddi_s'nk_diag  0) 


FOUT, 

} 


void 

sp_fddLsink_tenmnate  () 


double 

delay,  creat_time; 

Packet* 

pkptr; 

Packet* 

ppp_j>kptr; 

Packet* 

pkptrl  ;  /*5APR94*/ 

int 

src_addr,  iny_addr; 

int 

dcst_addr;/*  14APR94*, 

Ici* 

froni_mac_icijptr; 

double 

fddi_sink„ttrt; 

char 

pk_format[10]; 

int 

input_stream; 

int 

fd_index,  FDDI_fraine. 
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FIN  (sp_fddi_sink_terminate  ()) 


POUT. 

} 


Compcode 

sp_fddLsiQk_init  (pr_state_pptr) 

sp_fddi_sink_state*  *pr_state.4)ptr; 

{ 

static  VosT_Cm_Obtypeobtype  =  OPC_NIL; 

FIN  (sp_fddi_sink_init  (pr..state_pptr)) 

if  (obtype  =  OPC_NIL) 

{ 

if  (Vos._Catmem_Register  (“proc  state  vars  (sp_fddi_sink)”, 

sizeof  (sp_fddi_sink_state),  Vos_Nop,  &obtype)  ~  VOSC_FAILl]RE) 

FRET  (OPC_COMPCODE_FAILURS) 

} 

if  ((*pr_state_pptr  =  (sp_fddi_sink_state*)  \bs_Catmein_Alloc  (obtype,  1))  *=  OPC_NIL) 
FRET  (OPC_COMPCODE_FAILURE) 
else 

(*pr_state_pptr)->current_block  =  4; 

FRET  (OPC_COMPCODE_SUCCESS) 

} 
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APPENDIX  M 


TCP  RING  1  MAC  MODULE  CODE 
“sp_fddLmac__tcp.pr.c” 


Unchanged  portions  of  this  code  have  been  deleted  for  brevity. 

/*  Process  model  C  form  file:  sp_fddi_mac_tcp.pr.c  */ 

/*  Portions  of  this  file  Copyright  (C)  MIL  3.  Inc.  1992  */ 


/*  OPNET  system  definitions  *! 
#include  <opnet.h> 

#!nclude  “sp_fddLmac_tcp.pr.h” 
FSM_EXT_DECS 


/*  Header  block  */ 

/*  Define  a  timer  suuaiue  used  to  implement  V 
/*  the  TRT  and  THT  timers.  The  jDrimitives  defined  to  */ 
/*  operate  on  these  timers  can  be  found  in  the  */ 

1^  function  block  of  this  process  model.  */ 
typedef  strua 
{ 

int  enabled; 

double  stait_time; 

double  accum; 

double  iargei_accum; 

}  FddiT_Timer; 


/*  Declare  certain  primitives  dealing  with  timcr.s  V 
double  fddi_timcr_reraaining  (); 

FddiT_Timer*  fddi_timer_creaie  0; 
double  fddi_tinicr_value  (); 

/*  Scratch  strings  for  trace  statements  */ 
char  strO  [512],  strl  [512]; 
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/*  deQne  constants  particular  to  this  implementation  */ 


#(lefine  FDDI_MAX_STATIONS  512 

/*  define  possible  values  for  the  frame  control  field 
#define  FDDI_FC_FRAME  0 

#define  FDDI_FC_TOKEN  1 

/*  define  possible  service  classes  for  frames 
#defineFDDI_SVC_ASYNC  0 

#defineFDDI_SVC_SYNC  1 

/*  define  input  stream  indices  ♦/ 

#define  FDDI_LLC_STRM_IN  1 

#deflne  FDDI_PHY_STRM_IN  0 

/*  define  output  stream  indices  */ 
#defineFDDI_IXC_STRM,OUT  1 

#defineFDDI_PHY_STRM_OUT  0 

/*  define  token  classes  *! 

#define  FT)DI_TK_NONRESTRICTED  0 
#defineFDDI_TK_RES'nUCTED  1 

1*  Ring  Constants  */ 

#define  FDDI.TX.RATE  1  .Oe+08 

#defineFDDI_SA_SCAN_TIME  28.0e-08 


/*  Token  transmission  time:  based  on  6  symbols  plus  16  symbols  of  preamble  */ 
#define  FDDIC_TOKEN_TX_7iivlE  88.0e-08 


t*  Codes  used  to  differentiate  remote  interrupts  *! 
#dcfineFDDIC_TRT_EXPIRE  0 

#defineFDDIC_TK_INJECT  1 


r  Define  symbolic  expressions  used  on  transition  */ 

/*  conditions  and  in  executive  statements.  •/ 

#define  TRT_EXPIRE  \ 

(op_intrpt_type  ()  =  OPC_INTRFr_REMOTE  &&  op_intipt_code  ()  == 
FDDIC_'mT_EXPIRE) 
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#define  TK_RECEr/EI>v 
phy_arrival  &&\ 

fi  aine_,controJ  ==  FDDI_FC_TOKEN 

#define  RC_FRAME  \ 
phy_arriv£l  &&\ 

£rame_control  =  P?DDI_FC_FRAME 

#define  FRAME_ARRIVAL\ 

op_iotrpt_type  ()  =  OPC_INTKFl'._S'rRM 
op_mtrpt_stnn  ()  ~  FDDI_LTX'„STR\i„IN 

#define  STRIPmy_address  =  src_addr 

/*  Define  the  maximum  value  for  ring_id.  This  is  the*/ 

/*  maximum  numbc^  of  FDDI  rings  that  can  exist  in  a*/ 

/*  simulation.  Note  that  if  this  number  is  changed,*/ 

/*  the  initialization  for  fddi_claim_start  below  must*/ 

/*  also  be  modified  accordingly.*/ 

#defineFDDI_MAX_RING_ID  8 

/*  Declare  the  operative  TTRT  vaiue  ‘T_Opr’  which  is  the  final*/ 

/•  negotiated  value  of  TTRT.  This  value  is  shared  by  all  stations*/ 

/*  on  a  ring  so  that  aU  agree  on  its  value.*/ 
double  fddi_t_opr  [FDDLMAX_RING_ID]; 

#deflne  Fddi_T_C)pr  (fddi_t_opr  [ring_id]) 

/*  This  flag  indicates  that  the  negotiation  for  the  final  TTRT*/ 

/*  has  not  yet  begun.  It  is  statically  initialized  here,  and*/ 

/*  is  reset  by  the  first  station  which  modifies  T_C>pr.*/ 

/*  Initialize  to  1  for  all  rings.*/ 
static 

int  fddi_claim_start  [FDDLMAX_RING..ID]  =  { 1,1,1, 1,1, 1,1,1}; 

#define  Fddi_Claim_Stan(fddi_claim_start  [ring^id]) 


/*  Declare  sution  latency  parameters.  */ 

/•  These  arc  true  globals,  so  they  do  not  nee;’  lo  be  arrays.  */ 
double  Fddi_.St_Litency: 
double  FdcIi_Prop_Delay; 

/*  Declare  globals  for  Token  Acceleration  Mechanism.*/ 

/*  Hop  delay  and  token  acceleration  are  true  globals.*/ 
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double  Fddi_Tk_Hop  .Delay; 
static 

int  Fddi_Tk_Accelerate=  1; 

/*  These  are  actu.Ally  values  shared  by  all  nodes  on  a  ring  */ 

/*  so  they  must  be  defined  as  arrays.*/ 

double  fddi_tk_block_base_time  [FDDI_MAX_RING_ID]; 

#define  Fddi_Tk_Block_Base_'nme(fddi_tk_block_base_time  [ring_id]) 

int  fddi_tk_block_base_station  [FDDI_MAX_RING_ID]; 

#definc  Fddi_Tk_Block_Base_Station(fddi_tk_block_baie_station  [ring_id]) 

int  fddi_tk_blocked  [FDDI_MAX_RING_ID1; 

#define  Fddi_Tk_Blocked(fddi_tk_blocked  [ring_id]) 

int  fddi_num_stations  [FDDI_MAX_RING_ID]; 

#define  Fddi_Num_Stations(fddi_num_stations  [ring_id]) 

int  fddi_num_registered  [FDDI_MAX_RING_ID]; 

#define  Fddi_Num_Regisiered'^fddi_num_regisiered  [ring_id]) 

Objid  fddi_address_Uble  iFDDI_MAX_RING_ID][FDDl_MAX_S  rAnONS]; 
#define  Fddi_Address_Table(fddi_addres.s_tablc  [ring_id]) 

/*  Below  is  pan  of  the  OPBUG  208 1  patch;  FB  ended  here,  before.  -Nix  */ 

/*  Event  handles  for  the  TRT  are  maintained  at  a  global  level  to  *! 
f*  allow  token  acceleration  mechanism  to  adjust  these  as  necessary  */ 

/*  when  blocking  and  reinjecting  the  token.  TRT_handle  simply  */ 

/*  represents  the  TRT  for  the  local  MAC*/ 

EvhandlefddLtt.handle  [FDDI_MAX_RING_ID][FDDI_MAX_STAnONS]; 
#defin£  Fddi_Tn_ilaiidle(fddi_trt_handle  [ring_iu]) 

#define  TRT_handle  Fddi_'m_Handle  [my_addres.s] 

/*  Similarly,  the  TRT  data  structure  is  maintained  on  a  global  level.  */ 
FddiT_Timer*fddLtn  [FDDI_MAX_RING_ID]  rFDDLMAX.STATlONSj; 
tdefine  Fddi_Th  (fddi_tn  (ring_idl) 

#dcfinc  TRT  Fddi_'m  [my_address] 

/*  Registers  to  record  the  expiration  time  of  each  TFT  when  token  is  blocked.  */ 
double  fddi_tn_exp_time  [FDDI_MAX._RING_ID]  [FDDI_MAX_STATI0NS]; 
#define  Fddi_lYt_.Exp_Time(fddi._tn..exp_time  [ring_id]) 
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/*  the  ’Late_Ct’  flag  is  declared  on  u  global  level  so  that  it  can  be  ♦/ 

/*  set  at  the  tini  ewhere  the  token  is  injected  back  into  the  ring.  *! 

int  fddijate.ct  [FDDI_M^_RING_ID]  [FDDI.MAX.STATIONS]; 

#define  Fddi_Late_Ct  (fddi_late_a  [ring_id]) 

#define  Late_Ct  Fddi_Late_Ct  [my .address] 


!*  Convenient  macro  for  setting  TRT  for  a  given  station  and  absolute  time.  */ 
#deflne  'ni.T_SET(station_id.abs_time)\ 
fddi_timer_set  (PddLlYt  [station.id],  abs.time  -  op_sim_time());\ 
Fddi.Th.Handle  [station.id]  =  op_intrpt_schedule_remote  {abs_tirae,\ 
FDDIC.TR.T_EXP!RE,  FddLAddress.Table  [staUonJd]); 


/*  Stare  variable  definitions  */ 
typedef  struct 


I’SM.SYS 

.STATE 

int 

sv_ring.id; 

FddiT.Timar*  sv.THT, 

double 

sv_T_Req; 

double 

sv.T.Pri  [8]; 

Objid 

sv_my_objid; 

int 

sv.spawn  .token; 

int 

sv.my.address; 

int 

sv_orig_src_addr; 

Parke.f* 

sv.tkjjkptr; 

double 

sv_sync_bandwidth; 

double 

sv_syncj)c; 

int 

sv.ncstriacd; 

int 

sv_res4>eer; 

int 

sv_tk_registered; 

Ici* 

sv_to_Cc_icij)tr; 

int 

sv.tk.ucce  .on; 

}  sp_fddi_: 

mac.tcp.state; 

#define  pr.state_ptr 
iWefine  ring^id 


((sp_fddi_mac_tcp  .state*)  SimI_Mod_State_Ptr) 
pr_statejJtr->sv_ringJd 
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#define  THT 
#define  T_Req 
#define  T_Pri 
#define  my_objid 
#define  spawn_toke!i 
#define  my_address 
#define  orig_src_addr 
#define  tkjpkptr 
#define  sync_bandwidth 
#define  sync j)c 
#define  restricted 
#deflne  res_peer 
#define  tkjegistered 
^define  to_llc_ici_ptr 
#deSne  tk_trace_on 


pr_state_ptr->sv_THT 

pr_state_ptr->sv_T_Req 

pr_state_ptr->sv_T_Pri 

pr_state _ptr->sv_my_objid 

pr_state_ptr->sv_spawn_token 

pr_state_ptr->sv_my_address 

pr_state _ptr->sv_orig_src_addr 

prostate jptr->sv_tk _pkptr 

pr_state_ptr->sv_sync_band  width 

pr_state_ptr->sv_sync_pc 

pr_state_ptr->sv_restricted 

pr_staie_ptr->sv_resj)eer 

pr_state j)tr->sv_tk_registered 

pr_state_ptr->sv_to_llc_ici_ptr 

pr_state_ptr->sv_tk_trace_on 


/'*'  Process  model  internipt  handling  procedure  */ 


void 

sp_fddi_mac_tcp  0 

{ 

/*  Packets  and  Id’s  */ 
Packet*  mac_frame_ptr; 
Packet*  pdu_ptr; 

Packet*  pkptr; 

Packet*  daia_pkptr; 

Ici*  ici_ptr; 


/*  Packet  Fields  and  Attributes  */ 
int  rcq_pri,  svc_class,  rcq_tk_class; 

int  &ame_control,  src_addr.  dec*  ,addr; 

int  pk_len,  pri_level, 

/*  Token  -  Related  */ 

int  tk_.usable,  re5_station,  tk_class, 

int  cuiTent_tk_  class; 

double  acciim_sync: 
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/*  rimer  -  Related  */ 

double  tx_timc,  timer_remainiug,  accum.bandwidth; 

double  tht_value; 

I*  Miscellaneous  */ 
int  i; 

int  spawn_staUon,  phy_arrival; 

char  error_striiig  [512]; 

int  nuin_frames_sent.  num_bits_seat; 


/*  26DEC93:  loop  management  variables,  used  inRCV_TK  */ 

I*  and  ENCAP  states.  -Nix  */ 

intNUM_PRIOS; 

int  punt; 

int  q_check; 


I*  liSEP94:  added  creation_time  */ 
double  creation_time; 


FSM_EN1E!R  (sp_fddLmac,tcp) 

FSM_BLOCK_SWrrCH 

{ 

/♦ - */ 

!**  state  (INTT)  enter  executives  **/ 

FSM_STATE_ENTER_F0RCED  (0,  stateO_enter_exf  c,  “INTT’) 

[ 

/•  Obtain  the  station’s  address .  This  is  an  attribute  *! 

/*  of  this  process.  Addressing  is  simplified  by  ’•'/ 

/*  simply  using  integers,  and  only  one  mode.  */ 

I*  This  mode  is  16  bit  addressing  unless  the  */ 

/*  packet  format  ‘fddi_mac_fr’  is  modified.  */ 

my_objid  =  op_id_sclf();  f*  29DEC93  */ 

op_ima_obj_attr_gct  (my.objid,  “staiion.addrcss”,  &my_address); 

/♦  Register  the  station’s  objea  id  in  a  global  table.  */ 

/•  This  table  is  used  by  the  mechanism  which  improves 
/*  simulation  efficiency  by  ‘jumping  over’  idle  periods  */ 

/*  rather  than  circulating  an  unusable  token.  */ 
fddi_station_register  (my_address,  my_objid); 
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/*  Obtain  the  station  latency  for  tokens  and  frames.  */ 

/*  Default  value,  is  set  at  100  nanoseconds. 

Fddi_St_La:ency  =  lOO.Oe-09; 

op_ima_sim_attr_get  (OPCJMA^DOUBLE,  “station_latency”, 
&Fddi_St_Latency ) ; 

I*  Obtain  the  propagation  delay  separating  stations.  V 

/*  This  value  is  given  in  seconds  with  default  value  3.3  microseconds.  '*! 

Fddi_Prop_Delay  =  3.3e-06; 

op_ima_sim_attr_get  (OPC_IMA_DOUBLE,  “prop_delay”,  &FddLProp_Delay); 

/*  Derive  the  Delay  for  a  ‘hop’  of  a  freely  ciiculating  packet.  */ 
Fddi_Tk_Hop_Delay  =  Fddi_Prop_Delay  +  Fddi_St_Latcncy; 


/*  The  T_?ri  Q  state  variable  airay  supports  priOTity  *! 

I*  assignments  on  a  station  by  station  basis  by  */ 

/*  establishing  a  correspondence  between  integer  priority  */ 

!*  levels  assigned  to  frames  and  the  maximum  values  of  the  *! 

/*  token  holding  timer  (THT)  which  would  allow  packets  to  be  */ 

/*  sent.  Eight  levels  are  supported  here,  but  this  can  easily  */ 
t*  be  changed  by  redimensioning  the  priority  array.  */ 

/*  By  default  all  levels  are  identical  here,  allowing  */ 

/*  any  frame  to  make  use  of  the  token,  so  that  in  fact  *! 

I*  priority  levels  are  not  used  in  the  default  case.  *1 

/*  01JAN94:  (8-i)  is  a  quick  anempt  to  impart  different  weighting  */ 
/*  scales  on  each  priority  level,  and  is  not  necessarily  realistic.-Nix  */ 
/*  Be  aware  of  integer-double  arithmetic  conflicts  ie.  1/8  =  0.  -Nix  */ 

op_ima_,obj_attr_get(my_objid.  “T_Req”.  &T_Req); 
for  (i  =  0;  i  <  S;  i+-t-) 

I 

T.Prili]  =  ((double)(i  +  i.0)/8.0)  •  Fddi_T_Opr. 

/*  printfC'MAC  INIT;  T_PriI%dl  is  %U:  */ 

/*  Fddi_T_Opr  is  %ll\u".  i.  T_Pri[i].  Fddi_T_Opr);  */ 

} 


/*  Create  the  token  holding  timer  (THT)  used  to  restrict  the  */ 
/*  asynchronous  bandwidth  consumption  of  the  station  */ 
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THT  =  fddi_timer_create  (); 

/*  Create  the  token  rotation  timer  (TRT)  used  to  measure  the  */ 
/*  rotations  of  the  token,  detect  late  tokens  and  initialize  *! 

/*  the  THT  timer  before  asynchronous  tranmsmissions.  */ 

TRT  =  fddi_timer_create  (); 

/*  Set  the  TRT  timer  to  expire  in  one  TTRT  */ 

TRT_SET  (my_address,  op_sim_time  ()  +  Fddi_T_C)pr); 

/*  Initialize  the  Late_Ct  variable  which  keeps  track.  */ 

!*'  of  the  number  of  TRT  expirations.  */ 

Late_Ct  =  0; 


/*  initially  the  ring  operates  in  nonrestricted  mode  */ 
restricted  =  0; 


/*  Create  an  Interface  Control  Information  structure  */ 

/*  to  use  when  delivering  received  frames  to  the  I JLC.  */ 

y  *  41  *  4: ]|c  %  « itc  *  *  *  It< «  4:  itl «  «  *  %  1)1  *  «  *  %  Itl  *  :tc  i|i  *  4c l|i  ite «  «  *  «  *  *  *  « l|t  1)1 « :|c  itl  *  Itc 

/*11SEP94;  changed  to  new  format,  adding  pri  and  cr_time**/ 

^4c4citc4c4c4i4<*<**))c4:4<il‘4<4<>)c4c4ci*4c*4c4citc4c4:4c4c4ci|c4c4t4t4t4>>l>*4c4c4c4c4c4c4c4c4c4c4t4t4c4t<^’t‘%4<>t<*>|!’t:>K**^ 

to_llc_ici_ptr  -  op_ici_create  (“fddLmac_ind_tcp”); 


/•  The  ‘tk_registered’  variable  indicates  if  the  station  */ 
I*  has  registered  its  intent  to  use  the  token.  *! 
tk_registered  =  0; 


r  Determine  if  the  model  is  to  make  use  of  the  token  */ 

/*  ‘acceleration’  mechanism.  If  not,  every  passing  of  the  */ 

/*  token  will  bf  explicityly  modeled,  leading  to  large  */ 

/*  number  of  events  being  scheduled  when  the  ring  is  idle  */ 

/*  (i.e,  no  stations  have  data  to  send).  *! 
op_ima_sim_attr_get  (OPC_IMA_INTEGER,  “accelerate_token”, 
&Fddi_Tk_Accelerate); 


/*  Obtain  the  synchronous  bandwidth  assigned  *! 

/*  to  this  station.  It  is  expressed  as  a  */ 

/*  percentage  of  TTRT,  and  then  converted  to  seconds  V 
op_ima_obj_attr_get  (my_objid,  “sync  bandwidth",  &sync_pc); 
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sync_bandwidth  =  syQC_pc  *  Fddi_T_Opr; 


/*  Only  one  sution  in  the  ring  is  selected  to  */ 

/*  introduce  the  first  token.  Tbst  if  this  station  is  it.  */ 

/*  If  so,  set  the  ‘spawn_token’  flag.  *l 

/*  op_ima_sim_attr_get  (OPC_IMA_INTEGER,  “spawn  station”, 
&spawn_station);  */ 

/*  spawn_token  =  (spawn_station  =  iny_address);  *! 

/*  If  the  station  is  to  spawn  the  token,  create  */ 

/*  the  packet  which  represents  the  token.  */ 

/*  14APR94  :tbe  bridges  will  spawn  token  in  both  rings  */ 

/*  -Karayakaylar  */ 
spawn_token  =1; 
if  {spawn_token) 

{ 

tk_pkptr  =  op_pk_create_fmt  (“fddi_mac_tk"); 

/*  assign  its  frame  control  field  */ 
op4)k_nfd_set  (tkjjkptr,  “fc”.  FDDI_FC_TOKEN); 

/*  the  first  tokeu  issued  is  con-restricted  */ 

op_pk_nfd_set  (tk_pkptr,  “class”,  FDDI_TK_NONRES'llUCniD); 

/*  The  transition  will  be  made  into  the  ISSU_TK  */ 

/*  state  where  the  tk_usable  variable  is  used.  •/ 

/*  In  case  any  data  has  been  generated,  prsev  */ 

/*  this  variable  to  one.  'V 
tk_usable=  1; 

} 


I*  When  sending  packets  the  variable  accum_bandwidth  is  *! 
I*  used  as  a  scheduling  base.  Init  this  value  to  zero.  V 
/*  This  statement  is  required  in  case  this  is  the  spawning  */ 

I*  suUon.  and  the  next  state  entered  is  ISSUE_TK  */ 
accum_bandwidtb  -  0.0; 
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} 


/■^*  state  (INTT)  exit  executives  ’•'*/ 
FSM_STATE_EXrr_FORCED  (0.  stateO_exit_exec.  “INTT’) 
I 
} 


/**  state  (INTT)  transition  processing  **! 
FSM_INTr_COND  (spawn_token) 

FSM_DFLT_COND 
FSM_TEST_LOGIC  (“INIT”) 

FSM_TRANSrr_SWITCH 

{ 

PSM_CASE_'IRANSIT  (0. 2,  state2._enter_cxec, ;) 
FSM_CASE_TRANSn'  (1, 1,  state  J_cnter_exec, ;) 


/**  state  (FR_RFPEAD  enter  executives  **! 
FSM_STATE_ENTER_FORCED  (6,  statc6_enter_exec,  “PR  REPEAT’) 
{ 

/*  Extraa  the  destination  address  of  the  frame.  */ 
op_pk;_nfd_get  (pkptr,  “dest_addi’’.  &dest_addr); 

/*  If  the  frame  is  for  this  station,  make  a  copy  */ 

/*  of  the  frame’s  data  field  and  forward  a  to 
/*  the  higher  layer.  */ 

/*  14APR94  :  In  order  to  send  the  frames  which  arc  */ 

/*  addressed  to  the  remote  Ian.  check  the  address  database  */ 

/*  of  remote  Ian.  Frames  addressed  to  the  remote  Ian  shouldn’t 
I*  be  repeated  in  ti«e  local  ring  —  This  is  a  simple  foAvarding  */ 

/*  decision  algorithm,  one  of  the  bridge’s  function  */ 

/*  -  Karayakaylar  */ 

if((dest_addr  =  my_address)ll(dest_addr  <=  9)) 

{ 
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/*  record  total  size  of  the  frame  (including  data)  */ 
pk_len  =  op_pk_total_size_get  (pkptr); 

/*  decapsulate  the  data  contents  of  the  frame  */ 

/*  29JAN94:  a  new  field,  “pri”,  has  been  added  to  */ 

/*  the  fddi_llc_fr  packet  format  in  the  Parameters  */ 

/*  Editor,  so  that  output  statistics  can  be  */ 

/*  generated  by  class  and  priority.  -Nix  ♦/ 
op_pk_nfd_get  (plq)tr,  “info”.  &data_pkptr); 
op_pk_nfd_get  (pkptr.  “pri”.  Aprijevcl); 

I*  The  source  and  destination  address  are  placed  in  the  *! 

/*  LLC’s  la  before  delivering  the  frame’s  contents.  */ 
op_icLanr_set  (to_llc_ici_ptr,  “src_addr”.  src_addr); 
op_ici_attr..set  (to_llc_ici_j)tr.  “dcst_addr”.  dest_addr); 

/*  1 1SEP94:  added  pri  and  cr_time  to  fddi_mac_ind  ici***/ 

/*  both  are  needed  for  data  collection***/ 

op_icLattr_set  (to_llc_ici j)tr,  “pri",  prijevel); 
op_pk_nfd.^ct  (pkptr,  “a_time”,  &creation_time); 
op_icLattr_set  (to_llcJci_ptr,  “a„time”,  cieation^time); 

opjcijnstall  (to_llc_ici_pti); 

/*  Because,  as  noted  in  the  Fll_RCV  s^ate,  only  the  */ 

/*  frame’s  leading  edge  has  arrived  at  this  time,  the  */ 

/*  complete  frame  can  only  be  delivered  to  the  higher  */ 

/*  layer  after  the  frame’s  transmission  delay  has  elapsed.  */ 

/*  (since  decapsulation  of  the  frame  data  contents  has  occure^J,  */ 

/*  the  original  MAC  frame  length  is  used  to  calculate  delay)  */ 
tx_timc  s;  (double)  pkjen  /  FDDI_TX_RArE; 
op_pk_send_delaycd  (data_pkptr,  FDDI_LLC_STRM_OUT,  tx_time); 

/*  Note  that  the  standard  specifies  that  the  original  */ 

/*  frame  should  be  passed  along  until  the  originating  station  */ 

/*  receives  it,  at  which  point  it  is  stripped  from  the  ring.  */ 

/*  However,  in  the  simulation  model,  there  is  no  interest  */ 

/*  in  letting  the  frame  continue  past  its  destination  unless  */ 

/*  group  addresses  are  used,  so  that  the  same  frame  could  be  */ 

/*  destined  for  several  stations.  Here  the  frame  is  stripped  */ 

/*  for  efficiency  as  it  reachts  the  destination;  if  the  model  */ 

/*  is  modified  to  include  group  addresses,  this  should  be  changed  */ 
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/*  so  that  the  frame  is  copied  and  the  original  repeated.  */ 

/*  Logic  is  already  present  for  stripping  the  frame  at  the  origin.  */ 
op_pk_destroy  (pkptr); 

} 

/+  14APR94  :  the  frames  belong  to  this  ring  should  be  repeated.  *! 

/*  Thus,  local  traffic  is  constrained.—  This  is  filtering  decision  */ 

/*  One  of  the  bridge’s  function  -  Xarayakaylar 
else{ 

/*  Repeat  the  original  frame  on  the  ring  and  account  for  */ 

/’*'  the  latency  through  the  station  and  the  propagation  delay  */ 

/*  for  a  single  hop.  •/ 

/*  (Only  the  originating  station  can  strip  the  frame).  */ 
op_j)k_send_delayed  (pkptr,  FDDI_PHY_STRM_OUT, 

Fddi_St_  Latency  +  Fddi_Prop_Delay); 

} 

} 


/**  state  (FR_REPEAr)  exit  executives  **! 

FSM_STATE_EXIT_FORCED  (6.  state6_exit_exec.  “FR_REPEAr’) 

} 


/**  state  (FR_REPEAD  ffansition  processing  **! 
FSM_TRANSIT_FORCE  (1.  state l_enter_exec, ;) 
!* - */ 


/♦*  state  (ENCAP)  enter  executives  ♦*/ 

FSM_STATE_ENTER_FORCED  (8.  state8_emer_exec.  “ENCAP”) 

{ 

/*  A  frame  has  arrived  from  a  higher  layer;  place  it  in  *pdu_ptr’.  */ 
pdu_ptr  =  op_pk_^et  (op_imrpt_stnn  ()); 

t*  Also  get  the  interface  conuol  information  */ 

/*  associated  with  the  new  frame.  */ 
ici_ptr  =  op_intipt_icj  (); 
if  (ici_ptr  =  OPC_NIL) 

{ 

sprintf  (error_string.  “Simulation  aborted;  error  in  object  (%d)”, 
op_id_self  0); 
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op_sim_end  (error_stiing,  “f(idi_mac:  required  ICI  not  received", "  “  "); 

} 

/*  Extract  the  requested  service  class  *j 
/*  (e.g.  synclironous  or  asynchronous).  */ 
if  (op_icLattr_exists  (ici_ptr.  “svc_class”)) 

op_ici_attr_get  (ici.j)tr,  “svc.dass",  &svc_class); 
else  svc_class  =  FDDI  _SVC_ASYNC; 

I*  Extract  the  destination  address.  *! 
op_ici_attr_get  (ici_ptr,  “dest_addr”,  &dest_addr); 

/*  Extract  the  original  source  address  from  ICI ;  16APR94  */ 
op_ici_attr_get  (ici_ptr,  “src_addr”,  &OTig_src_addr); 


/*  If  the  frame  is  asynchronous,  the  priority  and  */ 

I*  requested  token  class  parameter  may  be  specified.  */ 
if  (svc_class  ==  FDDI_S  VC_ASYNC) 

{ 

/*  Extract  the  requested  priority  level.  */ 
if  (op  Jci_atti_exists  (id _ptr,  “pri”)) 

opJci_attr_get  (id_ptr,  “pri”,  &req45ri); 
else  req_pa  ~  0; 


/*  Extract  the  token  class  (restrictred  or  non*restricted).  */ 
if  (opJcLattr_exists  (id_ptr,  “tk_class”)) 

op_icLattr_get  (id_ptr,  “tk_class”.  &req_tk_class); 
else  req..tk_class  -  FDDI„l'K_NONRESTRlCTED; 

} 

/*  Check  for  the  default  ICI  values;  if  they  are  not  present  */ 

I*  compose  the  frame  ;21APR94*/ 
if(dest,.addr  !=  orig_src_addr){ 

/*  Compose  a  mac  frame  from  all  these  elements.  */ 

y jfi )»( If  1*1 « ♦  1^ )«< If  )*c m 4; « « 1^ 4t  Xt  * 4c 4c *  *  *  *  4c ^  * 4c 

/*  1 1SEP94;  mac  frame  format  is  changed  to  fddi_mac„fr_tcp***/ 

mac_frame_ptr  =  op.pk_create_fmt  (“fddi_mac_fr_tcp”); 
op_pit_ufd_set  (mac_frame_ptr,  “svc_class”,  svc_class); 
op.  jpk_nfd_.set  (mac_frame_j)tr,  “dest_addr”,  dest_addr); 

/*op_pk_nfd_set  (mac_frame_ptr.  “src_addr'’,  my_address);*/ 
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/*  here  original  source  address  should  be  kept  in  mac  frame  :16APR94*/ 
op_pk_nfd_set  (mac_frame_ptr.  “sr''_addr”,  orig_src_addr); 
op_pk_nfd_j:et  (mac_frame_ptr,  “info  ’,  pdu_ptr); 


/*  11SEP94:  cr_time  is  added  to  the  MAC  frame  (Obits)  because  it*/ 
/*  is  needed  for  calculations,  but  taken  out  of  the  LLC  frame  */ 


op  Jci_attr  _get  (ici_ptr.  “cr_time’’.  &creation_time): 
op_pk_nfd_set  (mac_frame_j>tr,  “cr_time”.  creation_time); 


printf(“\n*******dest_.addr  =  %5d\n’’.dest_addr); 
printf(“********orig_src_addr=  %5d\n’’,orig_src_addr); 

if  (svc.class  —  FDDI_SVC_ASYNC) 

1 

op_pk_iifd_set  (mac_frame_ptr,  “tk_class”.  req_tk_class); 
op_pk_nfd_set  (mac_frame_ptr.  “pri”,  req_pri); 

} 

/*  04J  AN94;  if  the  frame  is  synchronous,  assign  it  a  separate  */ 
/*  priority  so  that  it  may  be  assigned  its  own  subqueue,  and  */ 
/*  thereby  be  assigned  its  own  probe  for  monitoring.  -Nix  */ 
if  (svc_class  =  FDDI_SVC_S  YNC) 

{ 

op  j)k_nfd_sei  (mac_frarae_ptr.  “pri”,  8); 

} 

/*  Assign  the  frame  control  field,  which  in  the  model  */ 

/*  is  used  to  distinguish  between  tokens  and  ordinary  */ 

/*  frames  on  the  ring.  */ 

op_pk_nfd_set  (iiiac_frarae_ptr.  “fc”,  FDDI_FC_FRAME); 


/*  Enqueue  the  frame  at  the  tail  of  the  queue.  */ 

/*  27DEC93;  at  the  tail  of  the  prioritised  queue.  */ 

/*  04JAN94.  must  distinguish  between  synch  &  asynch.  */ 
if  (svc_dass  =  FDDI_SVC_ASYNC) 

{ 

op_subq_pk.. insert  (reqjiri.  mac_frame_ptr.  OPC_QPOS_TAIL); 

} 

if  (svc_class  =  FDDI_SVC_SYNC) 
i 
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op_subq_pk_iasert  (8.  mac_fraine„ptr,  OPC_QPOS_TAIL); 

} 


I*  if  this  station  has  not  yet  registered  its  intent  to  */ 

/*  use  the  token,  it  may  do  so  now  since  it  has  data  to  send  */ 
if  (!tk_registered) 

fddi_tk_register  (); 
tk_registered  =  1; 

} 

}  /*  end  of  if(dest_addr  !=  orig_src_addr)  statement  */ 


} 


/**  state  (ENCAP)  exit  executives  **/ 
FSM„STATE_EXIT_FORCED  (8.  state8_exit_exec,  “ENCAP”) 
{ 

} 


/■*•  state  (ENCAP)  transition  processing  **/ 
FSM_TRANSrr_FORCE  (1.  state l_enter_exec. ;) 
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